($title, $author, $abstract, undef) = split /\n\s*\n+/, $article;