s/("[^"\\]*(?:\\.[^"\\]*)*")/($x=$1)=~y: :_:, $x/ge;