Help for this page

Select Code to Download


  1. or download this
    perl -e '$str = q|aaabbbcccddd|; while($str=~m/(\S)\1\1/g){print @-[0]
+};'

0369