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 );

#!/usr/bin/perl

use strict;
use warnings;

my $string = q~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 @dates = $string =~ /((?:\d{1,2}\.){2}(?:\d{2}){1,2})/g;

print $_,"\n" for @dates;

(?:\d\d){1,2}

#!/usr/bin/perl
# vim: set ts=4 sw=4 et sta:
use strict;
use warnings;

my @datum = qw( 12.01.2006 23.11.06 23.23.222 );


for ( @datum ) {
    if ( m!\b\d\d?\.\d\d?\.(?:\d\d){1,2}\b! ) {
        print "$_ : match\n";
    }
    else {
        print "$_: no match\n";
    }
}