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

##</code><code>##

$ perl -Mutf8 -e "print join(q{,},split(/\b/,\$ARGV[0])),qq{\n}" méxico
m,é,xico

$ perl -Mutf8 -e "print join(q{,},split(/\b/,q{méxico})),qq{\n}"
Wide character in print at -e line 1.
méxico