The Perl docs suggest using unpack() instead of multiple substr()s. And the regex approach should be using the /s modifier (theoretically) in case your data has embedded newlines.

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