$ perl -w -e 'print split(/+\|/, $result);'
/+\|/: ?+*{} follows nothing in regexp at -e line 1.