スペースの削除ができません

質問

Perl初心者です。教えていただきたいことがあります。
CGIですが、HTMLのフォーム（テキストボックス）に名前を入力してもらうような場合に、名字と名前の間にスペースがあったりなかったりする状態が混在するのを避けるため、すべてスペースなしで値を受け取りたいと考えています。
仮に、"NAME"というテキストボックスとした場合、

$FORM{'NAME'} =~ s/ //g;
$FORM{'NAME'} =~ s/　//g;

このようにすれば、半角・全角スペースを削除できると思うのですが、どういうわけか動きません。スペースが入ったままで値が返ります。
ちなみに、CGIのファイルはEUCにしているのですが、なぜかSJISにすると動きます。ただ、SJISにすると別の支障があるのでできません。
情報が不足しているかもしれませんが、原因の検討がつきません。どなたが、考えられる原因をご指導いただけないでしょうか。
よろしくお願いします。

回答No.1

fumufumu_2006 · ベストアンサー

どっちかで動くと思うのですが。

#$str が EUC-JP の場合
$str =~ s/xA1\xA1//g;

#$str が SJIS の場合
$str =~ s/\x81\x40//g;

お礼

回答ありがとうございます。
ご教示いただいた方法で、希望どおりの処理ができました。
とても助かりました。本当にありがとうございました。