my $str = 'aaaabbbbccc'; $str =~ s/a/x/g;
my $str = 'aaaabbbbccc'; ($a, $b, $c) = ($str =~ /(a+)(b+)(c+)/);
Discussion