Use this. it will fix your tokens:
Code:
alias gettokn {
  var %a = \x $+ $base($3,10,16),%b,%r
  %r = $+(/,$chr(40),^,%a,*,|,$chr(40),?<=,%a,$chr(41),%a,*,|,%a,*$,$chr(41),/g)
  noop $regsub($1,%r,$null,%b)
  return $gettok(%b,$2,$3)
}

Kind Regards, blink