use LWP::Simple;
open PAPERS, "papers.txt";
while (<PAPERS>) {
    $page = $_;
    $html = get $page or next;
    while ($html =~ s/<a href="(.*?)".*?>(.*?)<//is) {
        my $url = $1;
        my $headline = $2;
        if ($headline =~ /$regexp/i) {   # defined elsewhere
            my $article;

# get the article - but HOW?

            SaveArticle($article,$headline,$url);
        }
    }
}