my $restxt=$top->Entry (width=>WIDTH,
                      -textvariable=>\$match_results,
                      -bg=>'white',
                      -relief=>'groove',
                      -font=>14,
                      -height=>10,
                      -justify=>'left',
                      )->pack(-side=>'top');