$string =~ s/([a-z]+)/ucfirst(lc($1))/ieg;