#!/usr/bin/perl -w
@spc2dbits = qw(x 00 01 10 11 end);
while (<>) {
    while (s/(\S)(\s+)(\S)/$1$3/) { $acc .= $spc2dbits[length($2)]; }
#    while (s/(\S)(\s+)(\S)/$1$3/) { $acc .= " " . length($2); }
}
$acc =~ s/end.*//;

# print "$acc\n";

# http://stackoverflow.com/questions/881177/how-can-i-convert-a-binary-number-into-a-string-character-using-perl-script
$n = length($acc);
@packArray = pack("B$n",$acc);
print "@packArray\n";