--. --- - .--. . .-. .-..

[Anonymous Monk]

   1: #!/usr/bin/perl -nietianmsurwdkgohvf_l_pjbxcyzq
   2: #   --. --- -  .--. . .-. .-..
   3: y/-. //cd;for$^(split){for$b(1..80){$_=int($b/27)
   4: .$b/9%3 .$b/3%3 .$b# by  JH
   5: %3;/[12]0/||do{y/120/.-/d;$^eq
   6: $_&&print substr$^I,$c,1;$c++}}$c=0}  # and RC

[joey]

Er, this was really by me, lost my log in cookie or something.

[Lord Rau]

So what the heck does it do!?!?!?!

[Anonymous Monk]

#!/usr/bin/perl -w -nietianmsurwdkgohvf_l_pjbxcyzq
#   --. --- -  .--. . .-. .-..
use strict;my$c;y/-. //cd;for$^(split){for$b(1..80){$_=int($b/27)
.$b/9%3 .$b/3%3 .$b# by  JH
%3;/[12]0/||do{y/120/.-/d;$^eq
$_&&print substr$^I,$c,1;$c++}}$c=0}  # and RC

Every post should use strict and -w whatever the program does ;-)

[Rasputin]

If you run the script, it waits on stdin. pass it the pattern, it says; gotperl If you pass it ... --- ... it says sos It's a morse code interpreter - nice.....

[Xavier]

This reminds me of something I was looking at recently. And yes, I know it is C... ftp://ftp.uu.net/pub/ioccc/1986/hague.c (sorry about those blank posts. I never did press submit or stumbit, as the case may be)

[ChuckularOne]

Being a ham, I played with this thing for about a half hour :-)
I noticed that it does not recognize ---- (The letter H) or numbers but other than that, pretty neat!
KF4JPE
Your Humble Servant,
-Chuck

[setantae]

This has made my eyes go funny...