% perl -MO=Deparse obfu.pl
'' =~ m[(?{print "plus three five three eight six two five five one five
four one stop congratulations paisano stop email conor with subject node
one secure stop",$/})];
obfu.pl syntax OK