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