perl -E "say for split/(?<!\\)\|/,'1|str|foo\|bar|goo|2323'"
1
str
foo\|bar
goo
2323