# $line enthält die eingelesenen Zeile
$line =~ s/\x0A\x0D/\n/g;