> gi|11SB_CUCMA Train|1 21 MARSSLFTFLCLAVFINGCLSQIEQQSPWEFQGS EVWQQHRYQSPRACRLENLRAQDPVRLLLPGFSNAPKLIFV AQGFGIRGIAIPGCAETYQT SSSSSSSSSSSSSSSSSSSSS.................... ........................... ................. .......... > gi|1A43_HUMAN Train|1 24 MAVMAPRTLVLLLSGALALTQTWAGSHSMRYFYTSVSRPG RGEPRFIAVGYVDDTQFVRFDSDAASQRMEPRAPWIEQEGPEYWSQTDRANLGTLRGYYNQSEDGSHTIQR MYGCDVGPDGRFLRGYQQDAYDGKDYIALNEDLRSWTAADMAAQITQRKWETAHEAE SSSSSSSSSSSSSSSSSSSSSSSS......................................................................................... ............. .......................................... #### > gi|11SB_CUCMA Train|1 21 MARSSLFTFLCLAVFINGCLSQIEQQSPWEFQGSEVWQQHRYQSPRACRLENLRAQDPVRLLLPGFSNAPKLIFVAQGFGIRGIAIPGCAETYQT SSSSSSSSSSSSSSSSSSSSS.......................................................................... > gi|1A43_HUMAN Train|1 24 MAVMAPRTLVLLLSGALALTQTWAGSHSMRYFYTSVSRPGRGEPRFIAVGYVDDTQFVRFDSDAASQRMEPRAPWIEQEGPEYWSQTDRANLGTLRGYYNQSEDGSHTIQRMYGCDVGPDGRFLRGYQQDAYDGKDYIALNEDLRSWTAADMAAQITQRKWETAHEAE SSSSSSSSSSSSSSSSSSSSSSSS................................................................................................................................................ #### $/="> "; while(<>) { $seq=''; $top=''; if($_=~/^gi\|(.*?) \.*?|.*/m) { $id=$1; #print $id."\n"; } if($_!~/^gi/mg ) { print $_; $seq.=$_; } print $seq."\n"; } $/="\n";