in reply to Can someone please break this obfuscated code down for me

Take a look at the docs for B::Deparse 

C:\test>perl -MO=Deparse 
-le"''=~('(?{'.('+]).]['^'[/@@){').chr(34).('^@@;.|'^'?,,^@^').',$/})'
+)"

BEGIN { $/ = "\n"; $\ = "\n"; }
'' =~ m[(?{print "allen",$/})];
-e syntax OK

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

In Section Seekers of Perl Wisdom