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

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

##</code><code>##

                ...

                foreach ( $response->content =~ /$regex/g ) {
                        system("ipset add temp_$set_name $_");
                        }

##</code><code>##

                system("ipset create temp_$set_name $set_type");
                foreach (@network) {
                        system("ipset add temp_$set_name $_");
                        }
                system("ipset create -exist $set_name $set_type");
                system("ipset swap temp_$set_name $set_name");
                system("ipset destroy temp_$set_name");
                my $cron_notice = "IPSet: $set_name updated (as of: $date_now).";
                system("logger", "-p", "cron.notice", $cron_notice);

##</code><code>##

                0 == system 'ipset', 'create', "temp_$set_name", $set_type
                    or warn "Cannot execute ipset because: $?";

##</code><code>##

	@dates_last = $fh->getlines;
	@dates_last = map(m/^(\d+).*$/,@dates_last);

##</code><code>##

	@dates_last = map /^(\d+)/, $fh->getlines;

##</code><code>##

	@dates_last = split(/ /,"0 " x $urls_number)

##</code><code>##

	@dates_last = ( 0 ) x $urls_number

##</code><code>##

	  	'(^([0-9]{1,3}\.){3}[0-9]{1,3}).*$', 
...
		'^(\d.*\d).*$',
...
		'(.*)', 

##</code><code>##

	  	qr/(^([0-9]{1,3}\.){3}[0-9]{1,3})/, 
...
		qr/^(\d.*\d)/,
...
		qr/(.*)/,

##</code><code>##

	@dates_now = map {$_ . "\n"} @dates_now;
	print $fh @dates_now;

##</code><code>##

	print $fh map "$_\n", @dates_now;