ex("c:\\fil\x{e9}.txt");
ex("c:\\fil" . pack("U", 0xe9 ) . ".txt");

sub ex {
    my $f = shift;
    print $f;
    print ((-e $f) ? " exists" : " doesn't exist");
    print "\n";
}