Select Code to Download

$string =~ m{
  (?{ [ pos ] })      # we start $^R as [ pos ]
...

  (?{ @loc = @{$^R} })  # then save $^R
}x