if ( $goodseq =~ /([^actg]+)/ ) {
  die 'found unexpected character $1";
}