if ( $datum4 =~ /(\d\d?\.\d\d?\.\d+)/ ) {
  $datum4 = $1;
}
else {
  # kein Datum gefunden; mach was
}