$/ = 'XXFFDDF';               # set the input record separator
my $base = 'filename';
my $i = 0;
while (<>) {                  # read one section at a time
  my $filename = "$base$i";   # generate a new filename
  open(OUT, ">$filename")     # create and write a new file
    or die "Can't open $filename: $!\n";
  print OUT;
  $i++;
}