$string = "<title>abcde</title><title>defg</title>";
if ($string =~ m|<title>(.*)</title>|) {
  print $1;
}