$hex =~ s/([01]{4})/sprintf("%.1x", eval('0b'.$binary))/eg;