Select Code to Download

[\&toggleTextHighlighting \$highlight, \$regex, \$widget]

sub toggleTextHighlighting {
    my ($highlight, $regex, $widget) = @_;
...
        $widget->tagRemove("foundtag", '1.0', 'end');
    }
}