$string=~s/([b-w]+)([^a]+)([a]+)/uc($1).$2.uc($3)/e;

##</code><code>##

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