>gi|77641047|gb|ABB00395.1| I2 [Lycopersicon esculentum]
TRTPSTSLVVDSGIFGRQNEIEDLVGRLLSMDTKGKNLAVVPIVGMGGLGKTTLAKAVYNDERVKKHFGL
TAWFCVSEAYDAFRITKGILQEIGSTDLKADHNLNQLQVKVKESLKGKKFLIVLDDVWNDNYNEWDDLRN
IFVQGDIGSKIIVTTRKNSVALMMGNEQISMNNLSTEASWSLFKRHAFENMNPMGYPELEEVGKQIAAKC
KGLPLALKTLAGMLCSKSEIDEWKRILRSEIW

>gi|77641045|gb|ABB00394.1| I2 [Lycopersicon esculentum]
TRTPSTSLVVDSGIFGRQNEIEDLVGRLLSMDTKGKNLAVVPIVGMGGLGKTTLAKAVYNDERVKKHFGL
TAWFCVSEAYDAFRITKGILQEIGSTDLKADHNLNQLQVKVKESLKGKKFLIVLDDVWNDNYNEWDDLRN
(many more lines repeated like this)

##</code><code>##

    $seqs =~ /^(\>.*(?=\>))/ms;