>>65
$noenc_char = '[^A-Za-z0-9.,ｴﾝｺｰﾄﾞｼﾀｸﾅｲﾓｼﾞｦｽｷﾅﾀﾞｹﾄﾞｳｿﾞ]';
$str =~ s/($noenc_char)/uc unpack 'H2', $1/ego;