$str=~s/(iteration)(.*)/<B> \U$1\E$2 <\/B>/g;