Help for this page

Select Code to Download


  1. or download this
    $qr = qr/./;
'a' =~ /$qr$qr/;
...
9                    <> gvsv s ->a
-                 <1> ex-rv2sv sK/1 ->b
a                    <> gvsv s ->b
  2. or download this
    __SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;