my $file; { local $/; $file = <>; }
$file =~ s/(?<!\n)\n(?!\n)//g
print $file;