The best scoring entry for last month's contest is: #!/usr/bin/perl @^="# ";@^=map{s/./ $& /g;$@=$_;s/ # /# #/g;$_,$@,$_}@^for 1..pop;print@^ To give you a head start, save that script as golf.pl and run "perl -MO=Deparse golf.pl".