my @ranges = $txtBox->tagRanges('sel');
my $text   = $txtBox->get(@ranges[0,1]);





##</code><code>##

if(@r)
    {
        my $str = $txtBox->get(@r);