$seq =~ s/\s//g;