if($spalte == 4 && ($zeile =~ m/\d+\t[\d.]*\t[\d.]*\t[\d.]*/xs) ) { $zahl4+=$3; } if($spalte == 5 && ($zeile =~ m/\d+\t[\d.]*\t[\d.]*\t[\d.]*\t[\d.]*/xs) ) { $zahl5+=$4; } if($spalte == 6 && ($zeile =~ m/\d+\t[\d.]*\t[\d.]*\t[\d.]*\t[\d.]*\t[\d.]*/xs) ) { $zahl6+=$5; } . . . .