my $land = 'Mexico';
my @words = split(/\b/,$land);