$_ = localtime; $i = 3814279.10476024; $\ = ' '; do{ s/.*(er)l/hack$1./ ; s/.*(er)$/P$1l/ ; s/.*(t).*/ano$1her/ ; s/.*:.*/Just/ ; print; }while( $i = log $i );