Hi,
I'd do this with split, although regex is possible as well:

#!/usr/bin/perl
use strict;

my $string = '>blabla1|anyting1|blabla2|anyting2|blabla3|';

# with split
my $third = (split(/\|/, $string))[2];

# with regex
my ($third_regexed) = $string =~ /^[^\|]+\|[^\|]+\|([^\|]+)\|.*/;

print "splitted: $third\nregexed: $third_regexed\n";
[download]

results in:

splitted: blabla2
regexed: blabla2
[download]

Regards,
svenXY

Update: added regex solution