in reply to bitwise operators
> perl -lwe'$,=$";print unpack"c*", "\24\x2f\52" & "\4\24\x0a"' 4 4 10 > [download]