Select Code to Download

#!/usr/bin/perl
use strict;
...
my ($third_regexed) = $string =~ /^[^\|]+\|[^\|]+\|([^\|]+)\|.*/;

print "splitted: $third\nregexed: $third_regexed\n";

splitted: blabla2
regexed: blabla2