Select Code to Download

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

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