in reply to More simple math.

YOLO 
print $_,":",$_ ^ 0b1100 ,"\n" for (0..15);

[download]

In Section Seekers of Perl Wisdom