{
  	my @zeile = split(/\s|\.|\//, $_);
	       $year           = $zeile[1];
	       $month          = $zeile[2];
	       $day            = $zeile[3];
	       $hour           = $zeile[4];
	       $minute         = $zeile[5];
	       $second         = $zeile[6];
    	#	print "$_";