Hi,
this would do the job (splitme is the filename and abc is (here) the delimiter:

perl -e'open(IN, $ARGV[0]);my $file = do {local $/;<IN>};my @parts=spl
+it(/$ARGV[1]/, $file);for (0..$#parts){open(OUT, ">$ARGV[0].$_");prin
+t OUT $parts[$_];close OUT}' splitme abc
[download]

Regards,
svenXY