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