in reply to Split a string based on change of character
my $str= "AAABBCCCC"; my @x; push @x, $1 while $str =~ /((.)\2*)/g;
- tye
In Section
Seekers of Perl Wisdom
in reply to Split a string based on change of character
my $str= "AAABBCCCC"; my @x; push @x, $1 while $str =~ /((.)\2*)/g;
- tye