Thank you, Randal. That looks about right, and perfectly Perlish.

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