Help for this page

Select Code to Download


  1. or download this
    $string =~ s/(([A-Z])\2+)/lc $1/eg;
  2. or download this
    $string =~ s/([A-Z]{2,})/lc $1/eg;
  3. or download this
    $string =~ s/(([:upper:])\2+)/lc $1/eg;
$string =~ s/([:upper:]{2,})/lc $1/eg;