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