Look for the token identifiers. $numtok $gettok $puttok
Token identifiers use ASCII codes to identify what character defines where one token ends and the next begins. In the case of the script above, I chose to use | to define this function for poll options.
The ASCII code for a | is 124. So if you replace that with 44 (which is the ascii code for ,) everywhere you find a token identifier, it should start looking for a , rather than a |.
Try changing it yourself and see where that gets you.