$_ = $table->cell($rownum, 0..2); if (/\xa0/) { s/\xa0\d+/ /; } else { s/\xa0//; }