>>414
もうなんつか、それ以前の問題。

my $n = join('', <>);

$n =~ s/\n\n/ /mg;

print $n;