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