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

##</code><code>##

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