# $D ist Tag, $M ist Monat, $Y ist Jahr
my ($D, $M, $Y) = $string =~/^(\d\d?)\.(\d\d?)\.(\d{2,4})/; #passt auf 1.1.99 oder 01.01.99 oder 1.1.1999
if (not defined $D) { # dann vielleicht ein ISO-Datum?
  ($Y, $M, $D) = $string =~/^(\d{4})(\d{2})(\d{2})/; #passt auf 1.1.99 oder auch 01.01.99
}