my @document = split /\n/, $document;

my $entry = '';

foreach my $line ( @document ) {

    m|^<li>(.*?)</strong>| and do { $entry = $1; next };

    m|<a href=(.*?)>(.*?)</a>| and do {

        my $url = $1;
        $url =~ s/CMD=TABLES/CMD=RET/;

        my $text = $2;
        if ($text eq "STF1A" || $text eq "STF3A") {
            print OUTPUT "<a href=$url/FMT=HTML/T=P1>$entry $text</a><br />\n";
        }

        next;
    };
}