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