use strict;
use warnings;

undef $/;
chomp(my $whole_file = <DATA>);
print "***\n$whole_file\n***\n";
$whole_file =~ s/.*?Title:.*?<\/b>\s?(.*?)<br>/<WANTED>$1<\/WANTED>\n/gs ;
print "$whole_file";


__DATA__
a whole
lot of  worthless
stuff
<b>Title:
</b>
STRING_I_WANT<br>
more worthless
meaningless stuff
or sometimes
<b>Title:
</b>ANOTHER STRING_I_WANT<br>