My Way - Frank Sinatra

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;
[download]

Jouke Visser, Perl 'Adept'

Comment on My Way - Frank Sinatra Download Code

Replies are listed 'Best First'.
Re: My Way - Frank Sinatra by dws (Chancellor) on Mar 21, 2001 at 02:43 UTC
`($the, $#curtain)` is a nice touch. Well done.	[reply] [d/l]
Re: My Way - Frank Sinatra by thabenksta (Pilgrim) on Mar 21, 2001 at 02:19 UTC
Bravo!!! my $name = 'Ben Kittrell'; $name=~s/^(.+)\s(.).+$/\L$1$2/g; my $nick = 'tha' . $name . 'sta';	[reply]

Back to Perl Poetry