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