>perl -MWin32 -e "print(Win32::GetShortPathName($_), ' ') foreach (@ARGV);" "My Documents" "Start Menu"
MYDOCU~1 STARTM~1

##</code><code>##

sub deslash { local $_=$_[0]; s/\\(.)/$1/g; $_ }
s/"((?:[^"\\]|\\.)+)"/ deslash($1) /ge;