$string=~s/([b-w]+)[^a]+([a]+)/uc($1)." Your Text ".uc($2)/ge;
[download]

while you use evaluation in regex part, you will be use the concat operator.