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