well, it actually executes for me:
$ perl -c tst.pl
owned
tst.pl syntax OK
$ perl -MO=Deparse tst.pl
owned
exit;
'' =~ /(?{BEGIN{print "owned\n"}})/;
tst.pl syntax OK
$ perl --version
This is perl, v5.10.0 built for x86_64-linux-gnu-thread-multi
Copyright 1987-2007, Larry Wall
Perl may be copied only under the terms of either the Artistic License
+ or the
GNU General Public License, which may be found in the Perl 5 source ki
+t.
Complete documentation for Perl, including FAQ lists, should be found
+on
this system using "man perl" or "perldoc perl". If you have access to
+ the
Internet, point your browser at http://www.perl.org/, the Perl Home Pa
+ge.
$
