In article <Pine.SOL.3.96.1001226151154.6959A-100000@simpukka>, Ilmari Karonen <iltzu@sci.fi> writes: > perl -le'print map{substr" ETINAMSDRGUKWOHBLZFCP VX Q YJ",vec(pack("b*" > ,$_.1),0,8),1}split/ /,".--- ..- ... - .- -. --- - .... . .-." > ." .--. . .-. .-.. .... .- -.-. -.- . .-."' > On ircnet spifff and me came up with: perl -le'print+grep{$_=pack"b*",$_.1;y/\1-z/ ETINAMSDRGUKWOHBLZFCP VX Q YJ/}split$",".--- ..- ... - .- -. --- - .... . .-. .--. . .-. .-.. .... .- -.-. -.- . .-."' ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe