As for split without unpack, I thought that was covered in the splitwise case

No, that one doesn't pack

Ah, I see. That was another case of grabbing code from another node without checking enough. This code runs (by my benchmark) 33% faster than the old split_int:

#...
split_pack => sub {
            my @sorted = map { join '.', unpack("CCCC", $_) }
                sort { $a cmp $b }
                map { pack("CCCC",split /\./) } @ips;
        },
#...
[download]

print pack("A25",pack("V*",map{1919242272+$_}(34481450,-49737472,6228,0,-285028276,6979,-1380265972)))