@ARGV = 'paz049.txt';
my $buffer = '';
while(<>) {
    if(s/^\.// .. /^$/) {
        $buffer .= $_;
    }
}
$buffer =~ s/\s+$//;
$buffer =~ s/\n(?!\.)/ /g;
my @lines = split /\s*\n\./, $buffer;