>sp|P49929|SC52_SHEEP 
DITCAEPQSVRGLRRLGRKIAHGVKKYG
>gi|1771590|emb|CAA70562.1| temporin B precursor MFTLKKSLLLLFFLGTINLSLCEEERNAEEERRDEPDERDVQVEKRLLPI
##</code><code>##

sp == P49929
gi == 1771592

##</code><code>##

 ##$lines contains the string to be matched 
 if(/^>(\w+)\|(.*)?\|.*?$line.*\n/i){
         $flag=1;
         print OUT "$_";
         print "$1 == $2\n";    
}