help porting a line of bitwise C code to perl

Select or download this

        return (func(token4) & 95) | (func(token5) & 32
                | func(token5) & 128);

/* "func" is defined as: */
 unsigned long func (c) unsigned char *c;

Select or download this

  (0 & 95) | (32 & 32) | (32 & 128)

Select or download this

perl -e 'print ((0 & 95) | (32 & 32) | (32 & 128))'

Select Code to Download