$ perl -pi.bak -e'substr($_,index $_,q/"/) =~ s/\s+//g' file.txt