Select Code to Download

use strict;
use warnings;
...
           and
print "matched\n"; 
print Dumper $^R;

matched
$VAR1 = [
...
          ],
          'g'
        ];