use strict;
use warnings;

while(my $line = <DATA>){
    chomp $line;
    my( $name, $jahr, $mon, $tag, $std, $thema, $grp, $ort )  = split /,/,$line;
    print "$name\t$tag.$mon.$jahr\t$std\t$thema\t$grp\t$ort\n";
}

__DATA__
Name,Jahr,Monat,Tag,Stunde,Thema,Gruppe,Ort