(my $temp = uc($2)) =~ tr/.//d;