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