my ($datum, $zeit) = split(';',$line);