Select Code to Download

$regex = qr/(?{print "Hey!";})/x;
$string = "some word";

$string =~ /some($regex)/;

     qr/STRING/imosx
             This operator quotes (and possibly compiles) its
...
             is attempted.  (Perl has many other internal
             optimizations, but none would be triggered in the
             above example if we did not use qr() operator.)

# Under Construction