236 28KD_MYCLE Train MPNRRRCKLSTAISTVATLAIASPCAYFLVYEPTASAKPAAKHYEFKQAASIADLPGEVLDAISQGLSQFGINLPPVPSL TGTDDPGNGLRTPGLTSPDLTNQELGTPVLTAPGTGLTPPVTGSPICTAPDLNLGGTCPSEVPITTPISLDPGTDGTYPI LGDPSTLGGTSPISTSSGELVNDLLKVANQLGASQVMDLIKGVVMPAVMQGVQNGNVAGDLSGSVTPAAISLIPVT SSSSSSSSSSSSSSSSSSSSSS.......................................................... ................................................................................ ............................................................................ // 338 A85A_MYCTU Train MQLVDRVRGAVTGMSRRLVVGAVGAALVSGLVGAVGGTATAGAFSRPGLPVEYLQVPSPSMGRDIKVQFQSGGANSPALY LLDGLRAQDDFSGWDINTPAFEWYDQSGLSVVMPVGGQSSFYSDWYQPACGKAGCQTYKWETFLTSELPGWLQANRHVKP TGSAVVGLSMAASSALTLAIYHPQQFVYAGAMSGLLDPSQAMGPTLIGLAMGDAGGYKASDMWGPKEDPAWQRNDPLLNV GKLIANNTRVWVYCGNGKPSDLGGNNLPAKFLEGFVRTSNIKFQDAYNAGGGHNGVFDFPDSGTHSWEYWGAQLNAMKPD LQRALGATPNTGPAPQGA SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS...................................... ................................................................................ ................................................................................ ................................................................................ .................. // 325 A85B_MYCBO MTDVSRKIRAWGRRLMIGTAAAVVLPGLVGLAGGAATAGAFSRPGLPVEYLQVPSPSMGRDIKVQFQSGGNNSPAVYLLD GLRAQDDYNGWDINTPAFEWYYQSGLSIVMPVGGQSSFYSDWYSPACGKAGCQTYKWETFLTSELPQWLSANRAVKPTGS AAIGLSMAGSSAMILAAYHPQQFIYAGSLSALLDPSQGMGPSLIGLAMGDAGGYKAADMWGPSSDPAWERNDPTQQIPKL VANNTRLWVYCGNGTPNELGGANIPAEFLENFVRSSNLKFQDAYNAAGGHNAVFNFPPNGTHSWEYWGAQLNAMKGDLQS SLGAG SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS........................................ ................................................................................ ................................................................................ ................................................................................ ..... // 325 A85B_MYCKA MTDVSGKIRAWGRRLLVGAAAAAALPGLVGLAGGAATAGAFSRPGLPVEYLQVPSAAMGRSIKVQFQSGGDNSPAVYLLD GLRAQDDYNGWDINTPAFEWYYQSGLSVIMPVGGQSSFYSDWYSPACGKAGCTTYKWETFLTSELPQWLSANRSVKPTGS AAVGISMAGSSALILSVYHPQQFIYAGSLSALMDPSQGMGPSLIGLAMGDAGGYKASDMWGPSSDPAWQRNDPSLHIPEL VANNTRLWIYCGNGTPSELGGANVPAEFLENFVRSSNLKFQDAYNAAGGHNAVFNLDANGTHSWEYWGAQLNAMKGDLQA SLGAR SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS........................................ ................................................................................ ................................................................................ ................................................................................ ..... // #### $/="//\n"; while(<>) { if($_=~/^(\d+)\s+(.*)/m) {$seq_length=$1; $ID=$2;} $seq=''; while($_!~/([A_z]+)/mg) { $part1=$1; $seq.=$seq.$part1; } $top=''; while($_=~/([S\.]+)/mg) {$part2=$1; $top.=$top.$part2;} print ">$ID\n$seq\n$top\n"; } $/="\n";