if ( $zeile =~ s/\=\r// )