if ( $opt_v =~ m/^\d{6}$/ ) {
  print "INFO: Eingabe ist richtig!\n";
}
else {
  print STDERR "Leider falsch!\n";
  exit 1;
}