$_ = '1|str|foo\|bar|goo|2323'; $, = ','; print split /(?