C:\temp>perl shortname.pl
longname =
"C:\Program Files\Microsoft Office\Office\OLREAD9.TXT",
shortname =
"C:\PROGRA~1\MICROS~3\Office\OLREAD9.TXT"
C:\temp>