Perl Puzzles

[Monty Harder]

6/2/01 6:02:49 PM, Mike Coleman <mkc at mathdogs.com> wrote:

>If you fancy yourself a Perl programmer and are looking for a little

  That reminds me... I think I told someone I'd post these 3 lines...

  $B="bottom of the sea.n";$N="n the ";$A="There's a ";@T=($H=hole,"log",knot,"
frog",wart,hair,fly,flea);for$V(0..$#T){for$R(a,b){&p($A);for$P(reverse(0..$V)){
&p($T[$P]," ",(($P>1)?o:i),$N);}&p($B);}&p("$A$H, "x 3,i,$N,$B);}sub p{print at _;}

Note that the newline between the opening double-quote and the word 'frog' is significant to 
prevent mid-word 
wrapping on an 80-column terminal.  This, is, of course, deliberately smaller and therefore 
obfuscated.