$str=~s/(iteration)(.*)/"<B> ".uc($1).$2." <\/B>"/ge;