$selec =~ s/[a-z]/[A-Z]/;