$str=~s/(iteration)(.*)/<B> @{[uc($1)]}$2 <\/B>/g;