$tmp =~ s/([^\015];)\012/$1\015\012/sg if $nr;