#!perl
use Modern::Perl;
use IO::Compress::Zip qw(zip $ZipError) ;

my %files;

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

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



for my $ip ( keys %files ) {
	my $output = "$ip.zip";
    do { zip => $output, $ip -> $_ }
      for @{ $files{$ip} };
}