+ }
+ return (1, @out);
+} else {
+# list
+ my @list = map {my $s = $_; $s =~ s!/(?:32|128)$!!; $maxlth = length $s if length $s > $maxlth; $s =~ /^1$/?undef:$s} DXCIDR::list();
+ my @l;
+ $maxlth //= 20;
+ my $n = int ($width/($maxlth+1));
+ my $format = "\%-${maxlth}s " x $n;
+ chop $format;
+
+ foreach my $list (@list) {
+ ++$count;
+ if (@l > $n) {
+ push @out, sprintf $format, @l;
+ @l = ();
+ }
+ push @l, $list;
+ }
+ push @l, "" while @l < $n;
+ push @out, sprintf $format, @l;