sub editcontig {
  my $rawseq = shift;
  $rawseq =~ s/\s+//g;
  $rawseq =~ s/[0-9]//g;
  return $rawseq;
}