added perl single token example