perl opcode from int to char