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