Help for this page
$str=~s/(iteration)(.*)/<B> \U$1\E$2 <\/B>/g;
$str=~s/(iteration)(.*)/"<B> ".uc($1).$2." <\/B>"/ge;
$str=~s/(iteration)(.*)/<B> @{[uc($1)]}$2 <\/B>/g;