$m = $top->Menu(-tearoff => 0,font => "{arial} 12 {bold}",
		-menuitems =>		
    [
     [Button => "$opt1",   -command => \&replace1],
     [Button => "$opt2",   -command => \&replace2],
     [Button => "$opt3",   -command => \&replace3],
    ]
   );

sub replace1{

   my $chosen1=$menu_items[0];                              
   $t->insert('sel.first',"$chosen1");              
   $t->delete('sel.first','sel.last');              
   $t->tagConfigure("rp1",-foreground=>"black");

   my $r1=$t->search(-forwards,"$chosen1",'end');
   $t->tagAdd("rp1","$r1","$r1 wordend");
}
1;

sub replace2{

my $chosen2=$menu_items[1];
...
}
1;

sub replace3{

my $chosen3=$menu_items[2];
...
}
1;