s/(.{1,4})(?=(?:.{4})*$)/sprintf"%x",eval"0b$1"/eg;