open(read,"<1.txt");
my@e=<read>;
my$a=join(''",@e);
sub fq2fa()
{
while (<1.txt>
{
if(/^@(S+)/)
{
print ">\n";
}
}
}
sub fq2fa();