sub get_bytes {
    return join '', map {
        length($_) > 2 ? pack('C', hex substr($_,0,-2)) : pack('C', hex $_)
    } split /-/, $_[0];
}