$data =~ s%\r?\n%\n%g;