$seq =~ s/[\s\d>]+//g;