I do not demand for anyone to write code for me.
OTOH when someone states that there is simple perl solution - and I state that it didn't exist - then "please show me code" seems natural (if this is some 5-10 lines of example code).
In the meantime - I am sincerely grateful to cavac
who showed me his implementation Re^4: Perl Contempt in My Workplace
- it could be that I will switch to it later, if indeed this will resolve my problem.
Regarding busted TCL.pm - so what - when I got it in 2003 it haven't worked at all on current (at that time) TCL/tk because tcl/tk introduced some some incompatibility and it crashed every time - so I fixed it.
If you think I made something wrong there - welcome to discuss these problems on proper mailing list or on github.