($title, $author, $abstract) = split /\n\n/, $article

##</code><code>##

($title, $author, $abstract) = $article =~ /([^\n]+)(?:\n\n)?/g