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