Select Code to Download

#!/usr/local/bin/perl5.10.0

...

use Data::Dumper;
print Dumper( \%+ )

$VAR1 = {
          'percent' => '70%',
          'name' => 'Grand Canyon'
        };

#!/usr/bin/perl

...
1: $1
2: $2
HERE