in reply to anti-obfuscation
This should clarify:
s/(\" and print \"|\+|he .{2}|\n|\r|\.+]//g; s/ \";/\.\n\"/;
My advice is use perl -de 0 to clarify the code works and then paste it in from there.
Frankus.