Modify $token->tokenize() to work on Perl 5.8

Modify $token->tokenize() to work on Perl 5.8 by replacing usage of 'W'
pack() format specifier with 'C'