Select Code to Download

my $a = "a";
if ( (ord($a) & 1) << 7) {print "happy\n"}

if ( ord($a) & (1 << 7) ) {print "happy\n"}