$x = "123456";
if ( $x =~ /\d{5,5}/ ) {
   print "wrong";
   }

##</code><code>##

$x = "123456";
if ( $x =~ /^\d{5}$/ ) {
   print "right";
   }