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