Help for this page

Select Code to Download


  1. or download this
    $ perl -E '/(?{ say "See?" })/'
See?
  2. or download this
    $ perl -E 'use re "eval"; my $a = qr//; /(?{ say("See?") })$a/'
Undefined subroutine &main::say called at (re_eval 1) line 1.
  3. or download this
    $ perl -E 'use re "eval"; my $a = qr//; /(?{ use 5.010; say "See?" })$
+a/'
See?