my $reg=$top->Entry(width=>30,
                    -font=>12,
                    -textvariable=>\$regex,
                    )->pack();