binmode MYFILE; #### if ($byte > 0x30) { #### if (ord($byte) > 0x30) {