Select Code to Download

foreach my $row ($ts->rows) {
    @$row = map { clean_text( $_ ) } @$row;
...
    # or remove all white space
    $_[0] =~ s/\s+//g;
}