Help for this page

Select Code to Download


  1. or download this
    my $dollar1;
case /^\s*(\S+)$ (?{ $dollar1 = $1 })/ {
   ...
  2. or download this
    use strict;
use warnings;
...
(?-xism:(e)(?{ $dollar1 = $1 }))
inside: e
outside: e