Tom Christiansen wrote a program in his pmtools bundle. You can find it somewhere on the perl.com web site. I wrote my own utility as well, at my web site. It's in the (aptly named) "Programs" section.

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