use Data::Dumper;
use Text::Balanced qw/extract_multiple extract_delimited/;

$x=q[1|str|foo\|bar|goo|2323];
@a=extract_multiple($x, 
  [sub {extract_delimited($_[0],qq{\|} )}],
  undef,
  0);

print Dumper(@a);

##</code><code>##

$VAR1 = '1';
$VAR2 = '|str|';
$VAR3 = 'foo\\';
$VAR4 = '|bar|';
$VAR5 = 'goo|2323';