my $string = qq~
Forscher haben am 12.05.2006, d. h. 12.5.2006 weitere Hinweise
dafür gefunden, dass Kohlendioxid ab dem 01/05/09 die
Erdatmosphäre stärker aufheizt als bisher angenommen.
Ein Bohrkern aus der Arktis, der 55 Millionen Jahre
altes Gestein enthält, d.h. etwas völlig unwesentliches,
brachte eine große - und insb. unangenehme - Überraschung(en).~;

my @w = ($string =~ m/\d\d?\.\d\d?\.\d\d\d\d|\d\d\?.\d\d?\.\d\d/g);
print Dumper( \@w );