There is certainly something wrong with your regular expression.

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

To be explicit that + in the regexp in the split is in an invalid position.

This is probably a cut and paste problem since a program with that construct in wouldn't even compile...