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