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

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