# @Dlines = $table1->body(); # @DPlines = $table2->body(); my $alignedTable = Text::Table->new(); for(my $i = 0 .. $#Dlines){ my($D1) = split(/\s{2,}/,$Dlines[$i]) if ($Dlines[$i] !~/^\s*+$/); my($D2) = split(/\s{2,}/,$DPlines[$i]) if ($DPlines[$i]!~/^\s*+$/);; $alignedTable->load([$D1, $D2]); } print $alignedTable;