#!/usr/bin/env perl
use strict;
use warnings;

my @buff = ();

while(defined(my $line = <ARGV>)) {
    if($line =~ /^\cL$/) {
        pop @buff;
        pop @buff while $buff[-1] !~ /\S/;
        print join("",@buff);
        @buff = ();
        defined(<ARGV>) or exit;
        $line = "";
        while($line =~ /^$/) {
            $line = <ARGV>;
            exit unless defined $line;
        }
        print "\n$line";
    } else {
        push @buff, $line;
    }
}