-validatecommand => sub { 
            length $_[0]  =~ s/(.+)/*/g
        },