Select Code to Download

#!/usr/bin/perl

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