$seq =~ tr[\n][];