Select Code to Download

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

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