perl -Mstrict -we "$_ = qq(goto F.print chop;\n=rekcaH lreP rehtona tsuJ);F1:eval"