#!/usr/bin/perl -w
print "\n";
print "Input FASTA filename to divide:";
$file=<STDIN>;


open FILE, "$file";
$i=0;
while(defined($line=<FILE>)){
        chomp($line);
        if($line=~/^>/){
                $i++;
                open (OUTFILE, ">>$i.$file");
                print $i.$file;
                print OUTFILE "$line";
                print OUTFILE "\n";

        }
        else{
                print OUTFILE "$line";
        }
}