>>918
use Encode ;
my $str1 = decode 'shiftjis', '対象文字列タイショウモジレツ';
my $str2 = decode 'shiftjis', '対象文字列ポロシャツ';
my $serchstr= decode 'euc-jp', 'ポロシャツ';
if($str1 =~/$serchstr/){ print "match" . "¥n" ; }
else{print "nomatch" . "¥n"; }
if($str2 =~/$serchstr/){ print "match" . "¥n" ; }
else{print "nomatch" . "¥n"; }

$str1 とかを出力したくなったら、
print encode 'shiftjis', $str1 ;
とかしなきゃならなくなるが。
# encode がらみはこのスレでもシタのスレでも話題になってるので
# 検索して参考にすれば?
Perlコーディング初心者質問スレ Part 50
ttp://pc8.2ch.net/test/read.cgi/php/1151250398/