if ( $html =~ m|<title>(.*?)</title>|is ) {
      $title = $1;
  } else {
      # note that you failed to find a title
  }