>>661
うむ、それもかなり激しく

if($a=~/[^0-9]/){