sub dashedHexToBytes{ 
    local $_ = shift; 
    tr[-][]; 
    return pack( 'h*', $_ );
};;