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