Select Code to Download

#!/usr/bin/perl
# SSF 040409 - New Scientist Enigma 1537 - 21 March 2009
...
   $$text=join(' ',@lst);
   @lst ? 1 : 0;
}

JOHN: HMLOKGJIN INMPLHKJO
MARTY: RATOMKFYH
SMACK: MASQKECUI
SUZY: SXWZVRUTY