Select Code to Download

my $foo = ">blabla1|anyting1|blabla2|anyting2|blabla3| ";
my @fields = split /\|/, $foo;