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