Select Code to Download

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

$ perl -Mutf8 -e "print join(q{,},split(/\b/,\$ARGV[0])),qq{\n}" méxic
+o
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