Change $remove($gettok($1-,%a,32),$chr(44)) to $remove($gettok($1-,%a,32),$chr(44),$chr(36))