sub dashedHexToBytes{ 
    join'', map pack( 'H*', $_ ),split'-', $_[0] 
};;