#!/usr/bin/perl -w

# Global variables
# ***********************************************************
($fasta_file, $w) = @ARGV;
# ***********************************************************

open (File,"<$fasta_file");
open (outFile,">data.file");

$i=1;
while ($line=<File>){
	if ($line=~ />/)
	{
		$line =~ s/.*/>$i /;
		print outFile $line;
		$i++;
		chomp  $line;
	}
	else
	{
		print outFile $line;
	}
}

close (File);
close (outFile);

# ***************************************************************
# Making Subsequenses *******************************************
# ***************************************************************

open (inF,"<$fasta_file");
open (oF,">out.out");
while (<inF>)
{
	$line = $_;
	if ($line =~ /^[^>.*]/)
	{
		chomp ($line);
		print oF "$line";
	}
}
close (inF);
close (oF);

# ********************************************
system "dos2unix out.out";
# ********************************************
open (inF,"<out.out");
open (oF,">out.txt");
while (<inF>)
{
	chomp;
	s/\*//g;
	print oF $_;
}

# # ********************************************

open (inF,"<out.txt");
open (oF,">sub.out");

$all=<inF>;
my $i=1;

while($all=~ /(.{1,$w})/ig)
{
	print oF  ">$i\n";
	print oF "$1\n";
	$i++;
}

close (inF);
close (oF);

#system "rm out data.s