Seems like a weird way of writing the following to me:

$out = map { substr unpack('B8', $1), 1 } $string =~ /./g;
[download]