##
#!/usr/bin/perl
local $/ = "\n\n";
open RDF, $ARGV[0] or die $!;
while(){
next unless m/]+>([^<\n]+);
my $title = $1;
next unless m/([^<\n]+);
my $author = $1;
$title =~ s/\s+/ /g;
$author =~ s/\s+/ /g;
print "$id\t$title\t$author\n";
}