use strict;
use warnings;

my %res;
my $id='';
my $rest='';
my $seq='';
while (<DATA>) 
{
	chomp;
    if($_=~/^>(.*?)\|(.*)/)
    {
        $id=$1;
        $rest=$2;
        $seq=<DATA>;
        chomp $seq;
    }
}

_DATA_
>id1|Q51487|P-474-4|86-98,113-126,297-310,322-335
CSLIPDYQRPEAPVAAAYPQGQAYGQNTGAAAVPAADIGWREFFRDPQLQQLIGVALE
>id2|Q51487|P-474-4|86-98,113-126,297-310,322-335
CSLIPDYQRPEAPVAAAYPQGQAYGQNTGAAAVPAADIGWREFFRDPQLQQLIGVALE
>id3|Q51487|P-474-4|86-98,113-126,297-310,322-335
CSLIPDYQRPEAPVAAAYPQGQAYGQNTGAAAVPAADIGWREFFRDPQLQQLIGVALE