$seq =~ s/-(?!-)//g;