print "match" if $string and $string =~ /[atcg]*([RYMKSWHBVDN][atcg]*){0,2}/i;