in reply to Onchange-like event handler for Tk text widget

yes, the virtual event <<Modified>> is generated,
here is one-liner: 
perl -MTcl::Tk -we '$t=Tcl::Tk::tkinit->Text->pack;$t->bind("<<Modifie
+d>>"=>sub{if($t->editModified){print qq/chg\n/;$t->editModified(0)}})
+;Tcl::Tk::MainLoop'

[download]
(I have no perl/Tk handy, so using Tcl::Tk CPAN module instead)

In Section Seekers of Perl Wisdom