$ perl t.pl
lines=0:
lines=1: A B C       G
lines=2: A
lines=3: A B C   E F G
lines=4: A     D   F