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);