>>310
$_ = '文字コードがEUCの場合ね';
s/\x82[\x9F-\xF1]//g;
print;

これでひらがなだけ削れる
逆は自分で考えれ