Don't use strtok.  Closes #689

Port perl_xlat() from v3.