#!perl

use strict;
use warnings;
use Encode;

binmode STDOUT, ":encoding(cp1252)";

my $pattern = qr/\A\w+\z/;
my @words   = map { decode( "cp1252", $_ ) } qw( Tšekissä Žena Śdipus Rex );

for my $word (@words) {
    my $result = $word =~ $pattern ? "matches" : "doesn't match";
    printf qq/The word "%s" %s the pattern %s\n/, $word, $result, $pattern;
}