open (OUT, ">$filename"."$title"."$count") or die "can't open";

##</code><code>##

while (<FILE>)
{
    chomp;
    ($title, $content) = split("\t");
    open (OUT, ">","$title.$count") or die "can't open";
    $count++;
    print OUT "$content";
    close OUT;

}