my @bits = split(/\|/,$string);
foreach my $bit(@bits){
  # work with each bit..
}

##</code><code>##

 ___
/\__\ "What is the world coming to?"
\/__/ www.wolispace.com