perl ARIB B24 decoder