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

##</code><code>##

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