http://www.perlmonks.org?node_id=891229

#!/usr/bin/perl #Friar Away! my ($jungle, $retreat); 'wont be a long stay'; if (my $hunch eq 'one hundred percent') { print time . " in the $jungle very well spent" } my @new = ('walkie talkies', 'mosquito nets', 'cliff bars', 'cash on hand' and 'passport ID'); 'Will prove useful from day well into night' . 'so Nicaragua will be a delight.'; 'Algorithm I seek not for the meek.'; 'One that surely will take more than a week.'; while (my $PerlFu) { sprintf 'orward this past year' } my $firstBigProject; 'has yet to get here'; unless ('I find there what I am to make') { return "$jungle $retreat for Heaven'$sake!" }

"...the adversities born of well-placed thoughts should be considered mercies rather than misfortunes." — Don Quixote