in reply to Bit Set Test

if (66 & 64) {
    print "aaa";
}

[download]

In Section Seekers of Perl Wisdom