#!/usr/bin/perl

use strict;
use warnings;

my $text = join '', <DATA>;
$text =~ s/\n{2,}/\n\n/gm; # m - multiline
print $text;

__DATA__
Hallo,



wie geht es dir?






Mir geht es gut.