My Way - Frank Sinatra

[Jouke]

Just don't use strict and -w ;-)

&now($the_end == 'near') && so(); $i->face($the, $#curtain);
my ($friends, $i, $say); $it->clear(); $i->state(my $case_of); `which 
+$i->m('certain')`;
$i->lived($a_life{'thats full'}), $i->travelled($each && $every{'highw
+ay'});
&more($much > $this), $i->did($it); my $way;

Jouke Visser, Perl 'Adept'

[dws]

($the, $#curtain) is a nice touch. Well done.

[thabenksta]

Bravo!!!

my $name = 'Ben Kittrell'; $name=~s/^(.+)\s(.).+$/\L$1$2/g; my $nick = 'tha' . $name . 'sta';