#!/usr/bin/perl

my $text = "Grand Canyon   70%";

$text =~ /
	(  .*\S    )
	\s+
	( \d\d%    )
	/x;

print <<"HERE";
1: $1
2: $2
HERE