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

##</code><code>##

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