That is more or less identical to my regex solution. Very nice, though.

$_="goto+F.print+chop;\n=yhpaj";F1:eval