Select Code to Download

$_ = "abcde";
if (/(.)(.)/) { # first two
...
  # by your theory, should see first two again
  print "outer: $1 $2\n";
}

inner: d e
outer: d e

$_ = "abcde";
if (/(.)(.)/) { # first two
...
  # by your theory, should see first two again
  print "outer: $1 $2\n";
}

inner: d e
outer: a b