use strict;
use warnings;
use Devel::Peek 'Dump';
my $token = "ba\x{f1}o";
utf8::upgrade($token);

Dump($token);
my $term = $token; # note: i have no clue what's in $term
print "match\n" if $token =~ /^$term/i;