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

while(<>){
    split("", $_);
    $_[0] =~ s/URL: //;
    $_[1] =~ s/Title: //;
    $_[2] =~ s/Headers: //;
    $_[2] =~ s/\n//g;
    next if length($_[1]) > 100;
    next if length($_[2]) > 1000;
    print("$_[0]$_[1]$_[2]\n");
}