my $rawseq = <CONTIG>;
 
  # my $goodseq = editcontig($rawseq);
  $rawseq =~ tr/ \t\n0-9//d;

  # now use $rawseq instead of $goodseq