#!/afs/athena/contrib/perl/perl

open(STRIP, ">>/mit/mkgray/project/comprehensive/indeces/".$ARGV[1].".strip");
open(IDX, $ARGV[0]);
while(<IDX>){
    ($url, $title, $headers, $body, @crap) = split("");
    print(STRIP "$url$title$headers\n");
}
close(STRIP);