D:\>chcp
Active code page: 1252

D:\>dir acentó.dat /b
acentó.dat

D:\>type test.pl
#!perl

use strict;
use warnings;

my $fn = 'acentó.dat';

if (open my $fh, '<', $fn) {
    print "Successfully opened file '$fn'\n";
    close $fh;
}
else {
    print "Error opening file '$fn': $!\n";
}

D:\>perl test.pl
Successfully opened file 'acentó.dat'

D:\>perl -ne "print $1 if m/(acentó)/" test.pl
acentó
D:\>perl -ne "print $1 if m/(acentó)/" test.pl | od -h
0000000000    61  63  65  6E  74  F3
0000000006

D:\>perl -v | fmt -w 53

This is perl 5, version 12, subversion 2 (v5.12.2)
built for MSWin32-x86-multi-thread (with 8 registered
patches, see perl -V for more detail)

Copyright 1987-2010, Larry Wall

Binary build 1202 [293621] provided by ActiveState
http://www.ActiveState.com Built Sep  6 2010 23:36:03

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.


D:\>