>perl -MDevel::Peek -MEncode=from_to -e"chomp($_=<STDIN>); from_to($_, 'cp437', 'cp1252'); Dump($_); open($fh, '<', $_) or die; print <$fh>"
C:\Users\ikegami\í.txt
SV = PV(0x159adc0) at 0x315b58
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x344d258 "C:\\Users\\ikegami\\\355.txt"\0
  CUR = 22
  LEN = 80
ok