local $/ = "<br>";
while ( <DATA> ) {
   print $1 if /Title:(.*?)<br>/s;
}