Я пытаюсь извлечь содержимое таблицы из файла HTML, используя HTML :: TableExtract. Моя проблема в том, что мой HTML-файл структурирован следующим образом:

    One row and three columns:

    
      
        
        <p> 100 </p>
        
        <p> 200 </p>
        
        <p> 300 </p>
        
      
        
        <p> 100 </p>
        
        <p> 200 </p>
        
        <p> 300 </p>
        
    

Из-за этой структуры мой вывод выглядит так:

   100|

   200|

   300|

   400|

   500|

   600|

Вместо того, что я хочу:

   100|200|300|
   400|500|600|

Можете ли вы помочь? Вот мой код Perl

use strict;
use warnings;
use HTML::TableExtract;

my $te = HTML::TableExtract->new();
$te->parse_file('Table_One.html');

open (DATA2, ">TableOutput.txt")
    or die "Can't open file";

foreach my $ts ($te->tables()) {

    foreach my $row ($ts->rows()) {

        my $Final = join('|', @$row );
    print DATA2 "$Final";
    }
}
close (DATA2);