#!/usr/bin/perl

if (scalar @ARGV) {
	close STDIN;
	open STDIN, $ARGV[0] or die "No puedorl abrirl $ARGV[0]";
}

while (<STDIN>) {
	# Si la línea tiene texto, entonces tenemos que quitarle el salto de
	# línea del final (si es una línea en blanco, la dejamos)
	if (! /^\s+\n$/) {
		s/\r?\n//o;
		$_ = "$_ ";
		$texto = 1;
	} elsif ($texto) {
		s/\r?\n//o;
		$_ = "$_\n\n";
		$texto = 0;
	} else {
		s/\r?\n//o;
		$_ = "$_\n";
	}
	print ;
}