Looking for ways to get perl to make Magic? Any odd way to print that word: like a JAPH! This shell one liner runs 3 perl one liners that run perl 4 times to make Magic:

perl -e'$_="Larry";while(++$_){print"\rPerl is $_";goto(MAGIC)if/Magic
+/}MAGIC:print"\n"';perl -v|perl -pe's\Perl\Magic\magic';perl -e'print
+"[Perl$^V] ";<STDIN>'
[download]