#! perl -slw
use strict;

print unpack 'x3a7x2a4x2a7', $_ while <DATA>;

__DATA__
0121012102??????????12121212????????
0111011102??????????12111112????????
0111011102??????????12111112????????