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

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