my $line = "07082005;1700;";
my ($datum, $zeit) = split(';', $line);
$datum =~ m!(\d\d)(\d\d)(\d\d\d\d)!;
$datum = "$3-$2-$1";
print $datum;