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