Split text file at pattern

[tbalazs]

I would like to split an ASCII file into smaller files (could be named 1.txt 2.txt, doesn't matter) based on the occurrence of a pattern (say immediately before each "abcde"). Any ideas how I could do this?
Thanks.
Tony.

 

[arcnon]

open(LOG, "path/filename");
$/ = undef;
$string = <LOG>;
close(LOG);

@pages = split(/abcdf/, $string);

$count = 0;
foreach $item (@pages){
open(FILE, "$count.txt");
print FILE "$item";
close(FILE);
$count++;
}