create csv output from the first found table with tbody in a html document string

table2csv.pl

use strict;
use warnings;

use DDP;

use FindBin qw/$Bin/;
use lib "$Bin/../lib";

use Mojo::DOM;
use Path::Tiny;

my $html = path(shift)->slurp;

my $dom = Mojo::DOM->new($html);

my $table = $dom->find("table > tbody")->first;

my $rows = $table->children("tr");

my $data_table = [];

for my $tr (@$rows) {

    my $cells = $tr->children("td");

    my $values = [];

    for my $td ( @$cells ) {

        my $text = $td->all_text;
        $text =~ s/^\s+|\s+$//g;

        $text =~ s/\n/\,/g;

        push @$values, $text;
    }

    print join(";", @$values) . "\n";

}