my $lineend = qr/\n\r|\r\n|\n|\r/;

$data =~ s/($lineend){3}/$1$1/sg;

##</code><code>##

$data =~ s/($lineend)\s*($lineend)\s*($lineend)/$1$1/sg;