$new_text =~ tr/\n//s;