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