#!/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;