arch/m68k/platform/68328/bootlogo.pl

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