my @field = $t->get("1.0", "end");
         foreach $_ (@field) {
            if ($_ =~ "\\b$string\\b") {
               print "Found $string in $_\n";
               print $count,"\n";
               $status->insert("end", "Found on line " . $count,"\n");
               &go_to($count);
               last;
            }
            $count++;
            print "Count equals $count\n";
         }