You can use B::Deparse to unravel it (or any other obfuscation):
% perl -MO=Deparse obfu.pl '' =~ m[(?{print "plus three five three eight six two five five one fi +ve four one stop congratulations paisano stop email conor with subject no +de one secure stop",$/})]; obfu.pl syntax OK
Update: as ++mtve shows with a clever example, it B::Deparse doesn't necessarily tell you much...
In reply to Re: Hope you guys can help
by liverpole
in thread Hope you guys can help
by dickeja8
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |