$b=chop($a="128");
print $b!= ($a & $b) ?"Just another ":"Perl hacker!\n";
print $b!= ($a & $b) ?"Just another ":"Perl hacker!\n";