my $a_intern = Encode::decode('utf-8', $a);

if ($a_intern =~ /^\w\w$/g)
{
print 'ok';
}