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);
        }
    }
}

##</code><code>##

while (<PAPERS>) {
    $page = $_;
    $html = get $page or next;
    my $path = $_;
    $path =~ s#^(.*)/.*?$#$1#;
    while ($html =~ s/<a href="(.*?)".*?>(.*?)<//is) {
        my $url = $1;
        my $headline = $2;
        if ($headline =~ /$regexp/i) {
            $url = $path . $url;
            my $article = get $url || 'goom';
            SaveArticle($article,$headline,$url);
        }
    }
}