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

$/ = "\n\n";
while(<>){
    ($url, $title, $headers, @crap) = split("\n", $_);

    print("$url$title$headers\n");
}