Help for this page

Select Code to Download


  1. or download this
    $ perl -Mre=debug -e " $_ = 1234; m/.$/ "
Compiling REx ".$"
Final program:
...
   4 <1234> <>               |  3:END(0)
Match successful!
Freeing REx: ".$"
  2. or download this
    $ perl -Mre=debug -e " $x = q{\d}; $f = 1234; $f =~ q{$x} "
Compiling REx "$x"
Final program:
...
Did not find anchored substr "$x"...
Match rejected by optimizer
Freeing REx: "\$x"