Select Code to Download

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

  $value =~ s{href='[^']*?\K<br>([^']*)}{local $_ = $1, s/<br>//g, $_}
+gsie;