perl -wle '
my $bin = "11001111";
my $hex = sprintf "%X", oct("0b$bin");
print $hex;
'