Select Code to Download

   "<a href='foo'>bar</a>bla<br>bla<a href='bar'>foo</a>";

   "<a href='foo'>bar</a>blabla<a href='bar'>foo</a>";

while ($value =~ /href='\K([^']*<br>[^']*)(?=')/p) {
    my ($pre, $post) = (${^PREMATCH}, ${^POSTMATCH});
...
    $href =~ s/<br>//g;
    $value = "$pre$href$post";
}