my $datum_int = '2004-06-02 22:01:00';
my $datum_ger = '02.06.2004 22:01:00';
for ($datum1, $datum2) {
  if (/^(\d\d\d\d)-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)$/) {
    print "Jahr=$1, Monat=$2, Tag=$3, Stunde=$4, Minite=$5, Sekunde=$6\n";
  } 
  elsif (/^(\d\d)\.(\d\d)\.(\d\d\d\d) (\d\d):(\d\d):(\d\d)$/) {
    print "Jahr=$3, Monat=$2, Tag=$1, Stunde=$4, Minite=$5, Sekunde=$6\n";
  } else {
    print "Das Datum paßt zu keinem Muster.\n";
  }
}