perlの正規表現の「\w」について
use Encode; $hoge = "あかさたな"; print "まっち" if($hoge =~ /\w/); # 出力されない $hoge = decode('utf8', "あかさたな"); print "マッチ" if($hoge =~ /\w/); # 'マッチ'