$var = "22.03.2004";
my ($tag_und_monat) = $var =~ /((\d{2}\.){2})/;