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