#!perl

use strict;
use warnings;
use Modern::Perl;
use IO::Compress::Zip qw(zip $ZipError) ;

my %files;
my @files = <*.txt *.docx>;

while (<@filez>) {
    next unless /^(\d+.\d+.\d+.\d+)/;
    push @{ $files{$1} }, $_;
}

for my $ip ( keys %files ) {
    do { zip $ip => $_ }
      for @{ $files{$ip} };
}