$a=123;
print "1. $a is number\n" unless (~$a & $a);
$a="123";
print "2. $a is number\n" unless (~$a & $a);
$a="abc123";
print "3. $a is number\n" unless (~$a & $a);
print "1. $a is number\n" unless (~$a & $a);
$a="123";
print "2. $a is number\n" unless (~$a & $a);
$a="abc123";
print "3. $a is number\n" unless (~$a & $a);