perl -E "say for split/(?<!\\)\|/,'1|str|foo\|bar|goo|2323'" 1 str foo\|bar goo 2323 [download]
In reply to Re: Trouble splitting pipe delimited by hbm in thread Trouble splitting pipe delimited by kpiti