if $str =~ /\D/ { print "non-digit" }

##</code><code>##

if $str !~ /^\d\d$/ { print "wrong length or contains non-digits" }