How about Chuck Norris facts as fortune replacement? 
wget -qO - 'http://4q.cc/index.php?pid=fact&person=chuck' |\
perl -lne 'print $1 if ((/<h1>And now a random fact/ ... /<hr/) =~ /^\
+d+(?<!^1)$/ ) and m{<p>(.*)</p>}'

Other than Chuck Norris, everything IS relative.

[download]
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});

Replies are listed 'Best First'.
Re: Chuck Norris fortune replacement
by jZed (Prior) on Oct 08, 2007 at 06:38 UTC
    When Chuck Norris writes a Perl program, all statements DIE! When Chuck Norris writes subroutines, they never return because they are too afraid of Chuck. Chuck Norris doesn't use next or last to break out of loops - the loops wouldn't dare to try to keep him in.
[reply]
Re: Chuck Norris fortune replacement
by erroneousBollock (Curate) on Oct 07, 2007 at 11:09 UTC
[reply]

Back to Cool Uses for Perl