in reply to Parsing a Tree to a Table.

For fun. 

#! perl -slw
use strict;

my @a;
my $last = 0;

while( <DATA> ) {
    m[(^[^A-Z]+)?([A-Z]+)] or next;
    my $l = length( $1//'' );
    if( @a and $l <= $last ) {
        print join "\t", @a;
        pop @a for 1 .. ($last-$l+3)/3;
    }
    push @a, $2;
    $last = $l;
}
print join "\t", @a;


__DATA__
A
|
|--B
|  |
|  |--C
|     |
|     |---PQR
|     |---XYZ
|--D
|  |
|  |---LMN
|---XYZ

[download]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

In Section Meditations