my $string = quotemeta shift; die "Not a valid nucleotide sequence" if $string =~ /[^AGTC]/;