open my $fh, '<', $filename or die "Can't open file: $!";

my $line = do { local $/; <$fh> };
$line =~ s/\n*\n/ /g;