I've been sucked into Perl Golf. This is my first Perl poem, and it describes my first real Perl Golf experience. I call it BEGIN { obsession }. It doesn't do anything nifty, but it compiles :-)

BEGIN { obsession }

$bored, @bored, %bored...
seek fun, challenge, & thrills

  (y?ou like perl???  *yep*!       y?ou like golf???  *yep*!

                !! y!ou'll love perl golf !!
                                            ...try it.out: join @maili
+ng_list.
                                            
next Friday, localtime 6:00... ${time for @tpr[0,3], cantor, kolakoski
+},
write $quick{solution}.
                       ${bless $self for @cleverness}.
                                                      read leaderboard
+,
$what,the ^&_)#!@^???

... not even ^close^           my $score?     243.50.
                               $best_score?    96.36.
    
seek $ideas, $answers, $clues:
  read perlmonks.org, $Gooooogle, perldoc:
  study $santa, get(even), @tpr[0,0..2], past winning;solutions:
  
{ sort my $thoughts and redo solutions, $completely...

  shift one_char => here, push another => there,
  $score--, $score--, $score--...


                        Hooray, you passed.


  send $solution, wait... hope(ref$ {accept $solution, as-is}),

am_i_climbing(leaderboard)?  y.e.s... sort of @slowly.

next Friday, localtime 5:45... (T-15.00, $place==12, sleep $recently==
+0)}
chomp @fingernails, pop @eyeballs, split @nerves, kill $keyboard and d
+ie

5... 4,  3... 2,  1...

                    "This course is now closed".


accept $defeat, @ hands {of($aliens)}.
                                      last of_all...
                                                    close
                                                       @eyes
                                                          and
                                                          sleep
[download]

-- Mike

--
just,my${.02}