Select Code to Download

for ($packed) { # alias $_ = $packed;
   pos = 0;
...
   # Make sure there's nothing extra at the end.
   /\G \z /xgc or die;
}

sub extract_string {
   /\G (.) /xgc or die;
...
}

my @strings = parse($packed);