Solved. It works perfectly fine. I had some problems in the rest of the script. Okay. Time for a break.
In reply to Re: Perl tk text -nocase -regex by IB2017 in thread Perl tk text -nocase by IB2017