>>848
なんか、$strまで展開されそうな気もしますが。
と思ったけど、evalって都合よく解釈してくれるのね。

でも
print "Ｍａｔｃｈ!" if eval("$str =~ $reg");
じゃないとＭａｔｃｈ!とは表示しないような気がする。