Select Code to Download

use strict;
use warnings;
...
my @restored = unpack q{c*}, $rle;
say qq{@restored};
say q{=} x 20;

1000000001000000110000000010000010001000010010001100100000101000
====================
...
-1 8 -1 6 -2 8 -1 5 -1 3 -1 4 -1 2 -1 3 -2 2 -1 5 -1 1 -1 3
-1 8 -1 6 -2 8 -1 5 -1 3 -1 4 -1 2 -1 3 -2 2 -1 5 -1 1 -1 3
====================