my $len;

..

$text->bind('<<Modified>>', sub{
                                if ($len != length $text->Contents ){
                                    $len = length $text->Contents;
                                    warn "text changed ($len)\n";
                                    $text->editModified(0)
                                }
                             }
);