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