This is shown in the Perl FAQ: "How do I use a regular expression to strip C style comments from a file?" in Perl FAQ section 6.

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