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

##</code><code>##

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