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] ";;exit';