Help for this page

Select Code to Download


  1. or download this
    $string =~ s/(.)X+/$1 eq 'Y' ? YX : $1/eg;