Perhaps marto has given the better way as I'm not familiar with Mojo::DOM. You might try to get rid of all the text after a carriage return.

for my $rox ($table->rows) 
 {
    print join(',' , map {s/\n.*//sr} @$rox), "\n";
 }
[download]