perlで特定の文字列が出現するごとにその区間を分割してファイルに保存する方法

Question

いつもお世話になっております。
文字列の羅列された1つのファイルに対して、特定の文字列同士の間の区間ごとにファイルを分割して保存するスクリプトを書こうとしています。
例えば、
XXaaaXXbbbbXXcc
cccXXddXXeeXX
と記載されたファイルの場合、aaaをファイル1へ、bbbbをファイル2へ・・・
といった具合に順々に保存していきたいのです。
現在splitを利用して、XXで文字列を区切り、配列に格納しているのですが、この場合各配列をファイルに保存することが出来ず困っております。

ご教授頂ければ幸いです、よろしくお願いします。

Answer 1

やりたいのはこういうことでしょうか。

use strict;

my $a="XXaaaXXbbbbXXcccccXXddXXeeXX";
my @b=split(/XX/, $a);
for(my $i=0; $i<=$#b; $i++){
  my $file="output$i.txt";
  open(my $fho, ">", $file);
  print $fho "$b[$i]\n";
  close $fho;
}