lanx@nc10-ubuntu:~$ cat >/tmp/tst.pl
exit; ''=~('(?{B'.'EGIN{print "owned\n"}})')
lanx@nc10-ubuntu:~$ perl /tmp/tst.pl
owned
lanx@nc10-ubuntu:~$ perl -c /tmp/tst.pl
/tmp/tst.pl syntax OK