if ($string !~ /_/ && $string =~ s!^(\w{4})$!uc($1)!e) {