my $line;
while (defined($line=<FH>)){
    chomp $line;
    unless (3 <= $line =~ tr,\|,\|,) {
        $line .= <FH>;
        redo unless eof(FH)
    }
    print "$line\n";
}