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

use 5.010;

my $text = "Grand Canyon   70%";

$text ~~ /
	(?<name>    .*\S        )
	\s+
	(?<percent> \d\d%       )
	/x;

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