90c90
< @subargs = split('#', $arg, -1);
---
> @subargs = split('#', $arg);
91a92,94
> if ($subarg eq '') {
> next;
> }
100c103
< print 'Parse error: too many |s in ', $arg, '\n';
---
> print 'Parse error: too many |s in ', $arg, "\n";