if($d =~ m/^\d{6}$/) {
  print "Exact match\n";
}