Select Code to Download

use strict;
"blah" =~ /(a)/;       # now we've set $1 at the global scope
...
    $str =~ m/(\d+)/;
    return $1;   
}

{
    $_ = 'blah';
...
}

print "$1\n"; # unitialized warning

$_ = 'blah';
...

print "$1\n"; # prints: b