push @array,
        map {
            (my $x = $_) =~ s/[?\s,]+//g;
            $x
        } grep {
            /\S/
        } $ts->rows;