無い文字が変換できるｗ　弾さん、スンバラシイーｗｗｗ
use strict;
use Encode qw(from_to);
my $str = "\e\$B-5\e(B";
from_to($str,'iso-2022-jis','cp932');
print $str,"\n";