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