C:\>chcp
Active code page: 1252

C:\>type match_test_1.pl
#!perl

use strict;
use warnings;

my $pattern = qr/\A\w+\z/;
my @words   = 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;
}

C:\>perl match_test_1.pl
The word "Tšekissä" doesn't match the pattern (?^:\A\w+\z)
The word "Žena" doesn't match the pattern (?^:\A\w+\z)
The word "Œdipus" doesn't match the pattern (?^:\A\w+\z)
The word "Rex" matches the pattern (?^:\A\w+\z)

C:\>type match_test_2.pl
#!perl

use strict;
use warnings;
use open qw( :encoding(Windows-1252) :std );

my $pattern = qr/\A\w+\z/;
my @words   = 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;
}

C:\>perl match_test_2.pl
"\x{009a}" does not map to cp1252 at match_test_2.pl line 12.
The word "T\x{009a}ekissä" doesn't match the pattern (?^:\A\w+\z)
"\x{008e}" does not map to cp1252 at match_test_2.pl line 12.
The word "\x{008e}ena" doesn't match the pattern (?^:\A\w+\z)
"\x{008c}" does not map to cp1252 at match_test_2.pl line 12.
The word "\x{008c}dipus" doesn't match the pattern (?^:\A\w+\z)
The word "Rex" matches the pattern (?^:\A\w+\z)

C:\>perl -v

This is perl 5, version 14, subversion 2 (v5.14.2) built for MSWin32-x86-multi-thread

Copyright 1987-2011, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.


C:\>