>>30=22
CGIかなにかだと思うけど、内部の処理でS-JISを使用するのはお勧めしない。
入出力と内部の処理は分けて、内部ではEUCなんかを使うのが吉。

あと参考までに、quotemeta() や \Q も調べておくとよいでしょう。
　perldoc -f quotemeta
　perldoc perlre