while (<>) 
{
    if (/^>/) 
    {
        my @fields = split '\|', $_;

        if (@fields <= 2) {  print "$fields[0]\n"}
        else              {  print join '|', "@fields[0,1]\n" }
        next;
    }

    print;
}