Help for this page

Select Code to Download


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