my $reg=$top->Entry(width=>30,
                    -font=>12,
                    -textvariable=>\$regex,
                    -validatecommand=>\&setting,
                    -validate=>'all',
                    )->pack();