Help for this page
$ perl -e '$_="aaabbccccddeee"; print $1,$/ while /((.)\2*)/g' # ^^ ... cccc dd eee
push @array, $1 while /((.)\2*)/g;
# THIS IS WRONG @array = $_ =~ /((.)\2*)/g; print join ", " , map {"<$_>"} @array; __END__ <aaa>, <a>, <bb>, <b>, <cccc>, <c>, <dd>, <d>, <eee>, <e>
www.com | www.net | www.org
No recent polls found