use Encode を使い、シフトJISコードをいったん内部形式に変換してから置換します。
use Encode; my $str = "A @ BCD"; my $pat = "\@"; my $rep = "at"; #内部形式に変換 $str = decode("Shift-JIS", $str); $pat = decode("Shift-JIS", $pat); $rep = decode("Shift-JIS", $rep); #置換 $str =~ s/$pat/$rep/g; #シフトJISに戻す $str = encode("Shift-JIS", $str);
ありがとうございます!解決しました。