$string=~s/([b-w]+)([^a]+)([a]+)/\U$1\E$2\U$3/;