use strict;
use warnings;

$_='>blabla1|anyting1|blabla2|anyting2|blabla3|';

if (m/>[^\|]+\|[^\|]+\|([^\|]+)\|/){
	print $1;	
}