#!/usr/bin/perl
use strict;
use warnings;
my ($title,$content,$outdir,$filename,$count);
$outdir ='D:/share/out';
open FILE, "D:/share/in/content.txt";
$filename="$outdir/$filename"; 
open (OUT, ">$filename"."$title"."$count") or die "can't open"; 
$count=1;
while (<FILE>)

{
  chomp;
  ($title, $content) = split("\t");
  $count++;
  print OUT "$content";

}
close (FILE);
close OUT;
exit;