#!/usr/bin/perl

use strict;
use warnings;

my $string = << "STRING_END";
<TITLE>
RESULTADOS Y CLASIFICACIONES DE LA NBA
</TITLE>
STRING_END

print "matched without modifier\n" 
  if ($string =~ m{<TITLE>[^<]*RESULTADOS[^<]*</TITLE>});
print "matched with s modifier\n" 
  if ($string =~ m{<TITLE>.*?RESULTADOS.*?</TITLE>}s);