Fix token Perl bitshift on return codes