>G9JVYGV01AJE8V length=135 xy=0104_0349 region=1 run=R_2011_09_20_15_00_06_
GGTGGTAGTGAAGAAGAGGAGATGAAAGTGGAAGAGGTTGAGGATGAGAAGGTTGAATTG
GAAGAAGAAGATGAGAAGGTTGAAGTGGAAGATGAGAAGGTTGAAGTGGAAGAAGATGAA
GTGGAAGAGAGGAGC
>G9JVYGV01A4910 length=90 xy=0353_0150 region=1 run=R_2011_09_20_15_00_06_
GGTGCATGGCATTGTAGATGGTTGCTTGATAGTTGCCCATACGTGTACTACACTTGCAGA
GTGAAGCAACCATCTACAATGCCATGCACC
>G9JVYGV01A0SVP length=70 xy=0302_0163 region=1 run=R_2011_09_20_15_00_06_
GCACCATTCAGCACAGATATAGTAGCCACATCAACACAAGTTACCTAACTATATCTGTGC
TGAATGGTGC
>G9JVYGV01A221U length=89 xy=0328_0160 region=1 run=R_2011_09_20_15_00_06_
CTGGACATTTACATCCATAAGTAGGAGTTAGGACTCTGCACCAGCCTCTTGAGCTTGTGA
CGTCTCTTCTCCTCCTCCGGACTGGGACA
>G9JVYGV01BVCPK length=46 xy=0650_0134 region=1 run=R_2011_09_20_15_00_06_
GCAAGATCGCAAGCCAAGCAACGTTTCACGAACTGGCCAGAATGAG
>G9JVYGV01AOU3I length=81 xy=0166_0220 region=1 run=R_2011_09_20_15_00_06_
TCATTGACATCTGTGCAGCTGCAGGAGCGGATATGAGGAGATGGTTCTATCTGCACAGAT
GTCAATGAGTGTGACAGTGAT
>G9JVYGV01A0JEL length=61 xy=0299_0171 region=1 run=R_2011_09_20_15_00_06_
CGAGTGAAGGCATTGGTGATGCTGGTGTGAAGAGTGAGGGCATCGCCAATGCCTTCACTC
G

##</code><code>##


use strict; 
use warnings; 
print "\n Running script for Jiggs \n"; 
my $infile=<foot.txt>;  
 
open(my $in,'<', "$infile") or die $!; 
open(my $out, '>' ,'foot1.txt') or die $!; 
 
my $line = <$in>; 

chomp($line);

$line =~ s/ /,/g; 
print $out "$line"; 
$line =<$in>;  
print $out "$line"; 


while($line =<$in>)

{
chomp($line);
$line =~ s/ /,/g; 
print $out "$line"; 
}

close ($in); 
close ($out); 
 
print "\n Done!\n"; 


##</code><code>##


>G9JVYGV01AJE8V,135,xy=0104_0349,region=1,run=R_2011_09_20_15_00_06_GGTGGTAGTGAAGAAGAGGAGATGAAAGTGGAAGAGGTTGAGGATGAGAAGGTTGAATTGGAAGAAGAAGATGAGAAGGTTGAAGTGGAAGATGAGAAGGTTGAAGTGGAAGAAGATGAAGTGGAAGAGAGGAGC
>G9JVYGV01A4910,90,xy=0353_0150,region=1,run=R_2011_09_20_15_00_06_GGTGCATGGCATTGTAGATGGTTGCTTGATAGTTGCCCATACGTGTACTACACTTGCAGAGTGAAGCAACCATCTACAATGCCATGCACC
>G9JVYGV01A0SVP,70,xy=0302_0163,region=1,run=R_2011_09_20_15_00_06_GCACCATTCAGCACAGATATAGTAGCCACATCAACACAAGTTACCTAACTATATCTGTGCTGAATGGTGC
>G9JVYGV01A221U,89,xy=0328_0160,region=1,run=R_2011_09_20_15_00_06_CTGGACATTTACATCCATAAGTAGGAGTTAGGACTCTGCACCAGCCTCTTGAGCTTGTGACGTCTCTTCTCCTCCTCCGGACTGGGACA
>G9JVYGV01BVCPK,46,xy=0650_0134,region=1,run=R_2011_09_20_15_00_06_GCAAGATCGCAAGCCAAGCAACGTTTCACGAACTGGCCAGAATGAG
>G9JVYGV01AOU3I,81,xy=0166_0220,region=1,run=R_2011_09_20_15_00_06_TCATTGACATCTGTGCAGCTGCAGGAGCGGATATGAGGAGATGGTTCTATCTGCACAGATGTCAATGAGTGTGACAGTGAT
>G9JVYGV01A0JEL,61,xy=0299_0171,region=1,run=R_2011_09_20_15_00_06_CGAGTGAAGGCATTGGTGATGCTGGTGTGAAGAGTGAGGGCATCGCCAATGCCTTCACTCG
>G9JVYGV01AUKIG,119,xy=0231_0198,region=1,run=R_2011_09_20_15_00_06_GGCCACCAGGGCTTAACTTCCTGTGCCTCACCATCACGCAGTTGTCAGAGGATCCACATTGAACAAAGTAGCAATTCTTTCCACTCTGTGACACACCAACATTCTTATACAGCACCAGG
>G9JVYGV01AJ8F7,29,xy=0113_1333,region=1,run=R_2011_09_20_15_00_06_CTGCTTCCAAGCCTCCAACCTCTAACCAG>G9JVYGV01AMQ87,79,xy=0142_0233,region=1,run=R_2011_09_20_15_00_06_AGAGTCTCCTCATTGTTCTTTCCAAGTCCTCTATTGCTGAGCCTGGTTTCGTACCTTCTCAGCTAGGCCCTCTTTCTCT
>G9JVYGV01A4W45,85,xy=0348_3895,region=1,run=R_2011_09_20_15_00_06_GCTTCACATCTCAGAAATATAACCGCTAATGATCTGAAACAAGTTACAATCTGACATTCTGAAACCAAATGAAAGCAGCATAAAC
>G9JVYGV01A7TPA,66,xy=0382_0140,region=1,run=R_2011_09_20_15_00_06_ATGGCTTACCTCACTGTCGATGGAGATCGAATGCAAGCGATGTCCATCGACAGTGAGGTAAGCCAT