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>'


STOP REINVENTING WHEELS, START BUILDING SPACE ROCKETS!CPAN 🐪