#!perl

use Win32;
use File::Find;
use Devel::Peek;

my @paths;

find sub {
    push @paths, (
        $_,
        Win32::GetLongPathName($_),
    ) if /snow/i;
}, "my_dir";

Dump $paths[0];
Dump $paths[1];

__END__
SV = PV(0x469c14) at 0x4f82b4
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x2621844 "SNOWMA~1.TXT"\0
  CUR = 12
  LEN = 16
SV = PV(0x469c2c) at 0x4f82f4
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x262181c "snowman \342\230\203.txt"\0 [UTF8 "snowman \x{2603}.txt"]
  CUR = 15
  LEN = 16