or download this
DB<54> $c = '<data avgqu="0" avgrq="0" await="0" device="sdb" elapse
+d_time="0" r="0" rmb="0" rrqm="0" svctm="0" util="0" w="0" wmb="0" wr
+qm="0" />';
DB<55> push @AoA, [$c =~ /"([.\d]+)"/g];
...
DB<58> $c = '<data avgqu="0.00" avgrq="58.91" await="0.09" device="s
+da" elapsed_time="1" r="0.00" rmb="0.00" rrqm="0.00" svctm="0.09" uti
+l="0.05" w="8.50" wmb="332.00" wrqm="27.00" />';
DB<59> push @AoA, [$c =~ /"([.\d]+)"/g];