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