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