Select Code to Download

                my $content = $response->content;
                my @network = split(/\n/,$content);
...
                foreach (@network) {
                        system("ipset add temp_$set_name $_");
                        }

                ...

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

                system("ipset create temp_$set_name $set_type");
                foreach (@network) {
...
                system("ipset destroy temp_$set_name");
                my $cron_notice = "IPSet: $set_name updated (as of: $d
+ate_now).";
                system("logger", "-p", "cron.notice", $cron_notice);

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

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

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

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

    @dates_last = ( 0 ) x $urls_number

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

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

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

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