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