だめ文字変換

なんていうかね、2010年になってまでこんなもん作ったりしなければならないという。
オカタイ所の仕事だし、しかたねえんだけど。

#!/usr/bin/env perl
use strict;
use Encode;
use utf8;
foreach(<>){
	$_ = Encode::decode('utf8', $_);
	my $str = $_;
	$str =~ s/―/―\\/g;
	$str =~ s/ソ/ソ\\/g;
	$str =~ s/Ы/Ы\\/g;
	$str =~ s/Ⅸ/Ⅸ\\/g;
	$str =~ s/噂/噂\\/g;
	$str =~ s/浬/浬\\/g;
	$str =~ s/欺/欺\\/g;
	$str =~ s/圭/圭\\/g;
	$str =~ s/構/構\\/g;
	$str =~ s/蚕/蚕\\/g;
	$str =~ s/十/十\\/g;
	$str =~ s/申/申\\/g;
	$str =~ s/曾/曾\\/g;
	$str =~ s/箪/箪\\/g;
	$str =~ s/貼/貼\\/g;
	$str =~ s/能/能\\/g;
	$str =~ s/表/表\\/g;
	$str =~ s/暴/暴\\/g;
	$str =~ s/予/予\\/g;
	$str =~ s/禄/禄\\/g;
	$str =~ s/兔/兔\\/g;
	$str =~ s/喀/喀\\/g;
	$str =~ s/媾/媾\\/g;
	$str =~ s/彌/彌\\/g;
	$str =~ s/拿/拿\\/g;
	$str =~ s/杤/杤\\/g;
	$str =~ s/歃/歃\\/g;
	$str =~ s/濬/濬\\/g;
	$str =~ s/畚/畚\\/g;
	$str =~ s/秉/秉\\/g;
	$str =~ s/綵/綵\\/g;
	$str =~ s/臀/臀\\/g;
	$str =~ s/藹/藹\\/g;
	$str =~ s/觸/觸\\/g;
	$str =~ s/軆/軆\\/g;
	$str =~ s/鐔/鐔\\/g;
	$str =~ s/饅/饅\\/g;
	$str =~ s/鷭/鷭\\/g;
	$str =~ s/祥/祥\\/g;
	$str =~ s/薌/薌\\/g;
	$str = Encode::encode('utf8', $str);
	print $str;
}

ダメ文字は基本古いPerl＋Sjisの問題ですけど、諸般の事情でUTF-8で食わせて下さい。