Fix perl xlat logging
Remove strtok from perl xlat