#! /usr/bin/perl -w print <) { push @mem, " 0x" . scalar reverse(unpack("h*", pack("b21", "0" . substr($_, 0, 20)))); } print join(",\n", @mem), "\n};\n";