gunzip \$data => \$out;
            print $out, $/;

##</code><code>##

<status>connected</status>
?R??0  ????l??????@?
+U?&#1964;??/?%y???p???v?Po#[???-???x?
>\'&#1000;??4'?V.6?6?&#1444;~5Y???0???C]?$?@m~OgQ?u&#451;8?Y?E?8<?Le?4?6??&#1644;&qd?x#1
##</code><code>##

            $collected .= $data;
            gunzip \$collected, \$out;
            print $out, $/;

##</code><code>##

<status>connected</status>
<quote>
    <ask>166.29</ask>
    <asksz>500</asksz>
    <bid>166.26</bid>
    …
</quote>
...

##</code><code>##

            $collected .= $data;
            gunzip \$collected, \$out, MultiStream => 1;
            print $out, $/;