Select Code to Download

$table->cell($rownum, 0..2) =~ s/\xa0\d+/ /;

foreach my $rownum (0..$#totalrows) {
  s/\xa0\d+/ /, push @title, $_ for $table->cell($rownum, 0) || '';
  s/\xa0\d+/ /, push @teach, $_ for $table->cell($rownum, 1) || '';
  s/\xa0\d+/ /, push @aides, $_ for $table->cell($rownum, 2) || ''
}