$data =~ s/\n/\\n/g; $data =~ s/"/\\"/g; $data =~ tr/\cM//d; print <