Help for this page

Select Code to Download


  1. or download this
    use Scalar::Util 'refaddr';

...
        print 'loop variable ', refaddr \$l;
        $l =~ /(?{ print refaddr(\$l) }) /x;
}
  2. or download this
    loop variable 135603848
135606104
loop variable 135606092
135606104