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

##

$whole_file =~ /Title:.*?(.*?)
/ms;

##

##

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

##

##

while (  ) {
   print if // .. /
/;
}

##

## print if // .. / /;