my $but2 = $frame->Button(-text => "Replace in the end",
              -command => [\&replace,$text,'16.0',  "end - 1c"  ])
     ->pack(-side => 'left');