my $base = ("A"|"C"|"G"|"T");