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