sub whack {
    my $s = shift;
    return '' unless defined $s;
    return join(' ', map { ord $_ } split(//, $s))."\n";
}

use utf8;
use strict;
my @i = ( 197, 160, 195, 186, 195, 161 );
my $i = join('', map { chr($_) } @i);
utf8::upgrade($i);
die "NOT UTF8" unless utf8::is_utf8($i);

print STDERR whack($i);
no bytes;
if ($i =~ /([[:upper:]]+)([[:lower:][:digit:]]+)([[:upper:]]+)([[:alpha:][:digit:]]*)/) {
    print STDERR '$1 ' . whack($1);
    print STDERR '$2 ' . whack($2);
    print STDERR '$3 ' . whack($3);
    print STDERR '$4 ' . whack($4);
}