Select Code to Download

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

$whole_file =~ /Title:.*?</b>(.*?)<br>/ms;

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

while ( <DATA> ) {
   print if /<b>/ .. /<br>/;
}

print if /<b>/ .. /<br>/;