...snip....
foreach $ts ($te->table_states) {
  foreach $row ($ts->rows) {
    push( @array, ($$row[1] =~ s/[?\s,]+//g) ) if $$row[0] =~ /\S+/;
    }
    print join("\n", @array);
 }

##</code><code>##

2
2
2

##</code><code>##

      $44,000
     $202,050
     $246,050