#!/usr/bin/perl -n
print pack '(B8)*', /\d+/g;