#！perl$a='abcd_E ddsa';if($a=~/^[a-zA-Z_\s]+$/){ print "\$a is a string!\n";}elsif($a=~/^[0-9]+$/){ print "\$a is a Int num.\n";}
