#!/usr/bin/perl
use warnings;
use strict;     # comment
use Data::Dumper;
my $string;
my $filler;
$string="";
while(<>) {
   chomp;
   if(($_=~m{^\.[0-9][0-9][0-9]\.}) || ($_=~m{^\*\*\*}) || ($_=~m{^FORM=}))
      { if($string ne "") {print "$string\n";}
        $string=$_; }
   else
      { $filler=" ";
        if($_=~m{^\|}) {$filler="";}
        $string=$string . $filler . $_; }
   }
print "$string\n";