Help for this page

Select Code to Download


  1. or download this
    my @words = grep $i^=1, split /(?<=(.))(?!\1)/, $string;