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

@found = `ggrep -i \"$ARGV[0]\" $ARGV[1]`;

for $out (@found){
    ($url, $title, $headers) = split("", $out);
    print("$url\n$title\n\n");
}
