Select Code to Download

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

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