$binary_data =~ /(.)(.){(?{unpack 'H*', $1})}/; # ?
/(.)(?{unpack 'H*', $1})(.){$^R}/; # ???
/(.)((??{'.' x $1}))/;
/(\d)((??{'.*?\n' x $1}))/;