[FWP] Fun with pack()

[Ilmari Karonen <iltzu@sci.fi>]

perl -le'print map{substr"  ETINAMSDRGUKWOHBLZFCP VX Q YJ",vec(pack("b*"
         ,$_.1),0,8),1}split/ /,".--- ..- ... -  .- -. --- - .... . .-."
         ."  .--. . .-. .-..  .... .- -.-. -.- . .-."'

-- 
Ilmari Karonen - http://www.sci.fi/~iltzu/
"It's just one of those things two or more people can get up to and enjoy, and
 the genders of those people really aren't all that relevant, though of course
 with certain mixes some additional peripherals are required to get things
 going..."                           -- Matt McLeod in the monastery on sodomy



==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe