#!/usr/bin/perl 

use strict;
use warnings;
use Bio::SeqIO;

my $in  = Bio::SeqIO->new(
          -file   =>  "/root/Desktop/seqIOnew.fasta",
          -format => 'FASTA');
my $out = Bio::SeqIO->new(
          -file   => ">/root/Desktop/new_out.log",
          -format => "EMBL" );                       
while ( my $seq = $in->next_seq() ) {
        print $out->write_seq($seq), "\n";
}

##</code><code>##

>gi|1786958|gb|AAC73831.1| membrane spanning protein in TolA-TolQ-TolR complex [Escherichia coli str. K-12 substr. MG1655] MTDMNILDLFLKASLLVKLIMLILIGFSIASWAIIIQRTRILNAAAREAEAFEDKFWSGIELSRLYQESQ GKRDNLTGSEQIFYSGFKEFVRLHRANSHAPEAVVEGASRAMRISMNRELENLETHIPFLGTVGSISPYI GLFGTVWGIMHAFIALGAVKQATLQMVAPGIAEALIATAIGLFAAIPAVMAYNRLNQRVNKLELNYDNFM EEFTAILHRQAFTVSESNKG

##</code><code>##


ID   unknown; SV 1; linear; ; STD; UNC; 0 BP.
XX
AC   unknown;
XX
DE   membrane spanning protein in TolA-TolQ-TolR complex [Escherichia coli str.
DE   K-12 substr. MG1655]
DE   MTDMNILDLFLKASLLVKLIMLILIGFSIASWAIIIQRTRILNAAAREAEAFEDKFWSGIELSRLYQESQ
DE   GKRDNLTGSEQIFYSGFKEFVRLHRANSHAPEAVVEGASRAMRISMNRELENLETHIPFLGTVGSISPYI
DE   GLFGTVWGIMHAFIALGAVKQATLQMVAPGIAEALIATAIGLFAAIPAVMAYNRLNQRVNKLELNYDNFM
DE   EEFTAILHRQAFTVSESNKG
XX
FH   Key             Location/Qualifiers
FH
XX
//