use utf8;
my $suspect = "vähicule";
if($suspect =~ /^\w+$/) {
     print STDERR "MATCHES\n";
}