open(FH,"input.txt") or die "cant open";
@array=<FH>;
foreach(@array){
if($_!=~m/^>/)
{
$_=~s/\n//g;
print "$_\n";
}
}