Select Code to Download

    $string =~ /
        (                                    
...
            .*?<\/a>                        
        )
    /x;

'<a href="#1">--HIT<a name="MUST NOT MATCH">--</a> <a href="#2">2</a>'

'<a href="#1">--HIT-<a name="MUST NOT MATCH">--</a> <a href="#2">2</a>
+'