The problems in your code are,
You have opened the file using ,
in reply to extract and export to multiple files
But that time the variables $filename,$title,$count are not having any values.
open (OUT, ">$filename"."$title"."$count") or die "can't open";
Actually this line should come inside the while loop after getting the title and content from the file.
And you need to close that file immediately after printing the content into that file .
It should be like this,
($title, $content) = split("\t");
open (OUT, ">","$title.$count") or die "can't open";
print OUT "$content";