If I understand your question...

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

Or, without putting eval code in the replacement:

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