Select Code to Download

    @chunks = do {local $" = "|"; split "@array" => $str};

    sub mysplit (\@;@) {
        local $" = "|";
        split "@{+shift}" => @_;
    }
    @chunks = mysplit @array => $str;