sub get_bytes {
    return join '', map {
        pack('H2', $_)
    } split /-/, $_[0];
}

print get_bytes('66-6f-6f00-62ff-61-72');