for my $i (1..$table->Rows->Count) {
	for my $j (1..$table->Columns->Count) {
		my $text = $table->Cell($i,$j)->Range->Text;
		print "($i:$j) $text\n" if $text =~ /$pattern/;
	}
}