local $/ = "XXFFDDF";   # delimiter

while (<INPUT>) {
   open(OUTPUT, "> output.$.")   # output.1, output.2, etc
      or die "output.$.: $!";   
   print OUTPUT;
   close(OUTPUT);
}