def unber(s):
    """ Perl BER unpacking
    Format definition: from http://perldoc.perl.org/functions/pack.html
        (see "w" template description)

    BER is a way to pack several variable-length ints into one
    binary string. Here we do the reverse

    Args:
        s (str): a binary string with packed values

    Returns:
         str: a list of unpacked values

    >>> unber('\\x00\\x83M')
    [0, 461]
    >>> unber('\\x83M\\x96\\x14')
    [461, 2836]
    >>> unber('\\x99a\\x89\\x12')
    [3297, 1170]
    """
    res = []
    acc = 0
    for char in s:
        b = ord(char)
        acc = (acc << 7) + (b & 127)
        if not b & 128:
            res.append(acc)
            acc = 0
    return res
