sub quote   { local $_=$_[0]; s/(["\\])/\\$1/g; qq{"$_"} }
sub unquote { local $_=$_[0]; s/^"(.*)"$/$1/ or return $_; s/\\(.)/$1/g; $_ }

while (<IN>)
{
   @items = /("(?:[^"\\]|\\.)+"|[^"\s]+)/g;
   foreach (@items) {
      $_ = unquote($_);
      print(Win32::GetShortPathName($_) || quote($_), ' ');
   }

   print("\n");
}