No, it isn't. When you use constant, Perl replaces the constants with the values they return at compile-time.

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