#!usr/bin/perl -w

    use strict;

    my @lines = qw(
        >sp|P49929|SC52_SHEEP 
        DITCAEPQSVRGLRRLGRKIAHGVKKYG
        >gi|1771590|emb|CAA70562.1| temporin B precursor
    );

    foreach (@lines) {
        if (/^>(\w+)\|([^|]+)/){
            print "$1 == $2\n";    
        }
    }
    
    __END__
    Prints:

    sp == P49929
    gi == 1771590

##</code><code>##

    /^>(\w+)\|(\w+)/