my $d = '1.2.3027';
my ($t, $m, $j) = split/\./, $d;
print "tag: $t monat: $m jahr: $j";

# tag: 1 monat: 2 jahr: 3027