$str =~ s{euc-jp}{cp932};