$intput =~ s/([A-Za-z]+)/uc($1)/ge;