while ($value =~ s/href='[^']*?\K<br>//gsi) {} ;