Select Code to Download

if ($response->content =~ m/<hr>(.*?)<hr>/) {
  $matched_number = $1;
} else {
  # didn't find a match
}