Select Code to Download

#!/usr/bin/env perl -l

...
my @bits = split / /, $data;

print "@{[ splice @bits, 0, 18 ]}\n$sep" while @bits;

1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
...
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
13 1 1 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx