my @items = split(/\|/, $str);
foreach my $item(@items){
...#whatever
}