DB<205> p $_ = join " ", map { "$_" x 3 } qw/. a b C a d C e C ./
... aaa bbb CCC aaa ddd CCC eee CCC ...
  DB<206> p ($long) = /(aaa.*CCC)/
aaa bbb CCC aaa ddd CCC eee CCC
  DB<207> $last = ""

  DB<208> x map {$last .= $_ } split /(?<=CCC)/, $long
0  'aaa bbb CCC'
1  'aaa bbb CCC aaa ddd CCC'
2  'aaa bbb CCC aaa ddd CCC eee CCC'
  DB<209>