#!perl -w
$o = q{qq{ $& | $'}};
$p = q{.};
$_=1234;
/$p/;
print eval $o;
__END__
 1 | 234