Select Code to Download

use Data::Dumper;
'12' =~ /
...
print Dumper([$1, $2, $3]);
print "Where are one and two?\n";
print Dumper(\%+);

All accounted for:
$VAR1 = {
...
          'twelve' => '12'
        };