1 2$_ = join("", <>); 3 4s/(0x[0-9a-f]{2})/sprintf("0x%.2x",ord(pack("b8",unpack("B8",chr(hex($1))))))/gei; 5 6s/^ / .byte /gm; 7s/[,};]+$//gm; 8s/^static.*//gm; 9 10print $_; 11