$selec =~ tr/a-z/A-Z/;