my $content = $response->content;
                my @network = split(/\n/,$content);
                @network = map { m/$regex/ ? $1 : ()} @network;
                ...

                foreach (@network) {
                        system("ipset add temp_$set_name $_");
                        }