Select Code to Download

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