#! /s/perl/bin/perl

foreach $file (@ARGV){

    $mark_fnd = 0;

    rename("$file", "${file}.bak")
        || die "Couldn't mv $file to ${file}.bak\n";

    printf "Scrunching $file\n";

    open(IN, "${file}.bak");
    open(OUT, "> $file");
    
    while(<IN>){
        last if ( /SPF: Split Init Here/ );
        print OUT;
    }

    close OUT;
    close IN;

    unlink("${file}.bak");
}

##########################