You're welcome.

I made a little mistake in one sugestion:

        qr/(^([0-9]{1,3}\.){3}[0-9]{1,3})/,
...
        qr/^(\d.*\d)/,
...
        qr/(.*)/,
...
                foreach ( $response->content =~ /$regex/g ) {
[download]

And you "corrected" thusly:

        qr/\n(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/,    # 46.137.194.0 
+   46.137.194.255    24    2650
[download]

The problem with that is that that pattern will match every line except the first line.    The proper solution is to use the /m option so that the pattern will match at the beginning of every line:

        qr/(^([0-9]{1,3}\.){3}[0-9]{1,3})/m,
...
        qr/^(\d.*\d)/m,
...
        qr/(.*)/,
...
                foreach ( $response->content =~ /$regex/g ) {
[download]

        my @sys = (qw(ipset create), "temp_$set_name", split / /,$set_
+type);
...
        @sys = (qw(ipset create -exist), $set_name, split / /,$set_typ
+e);
[download]

The use of / / with split may not do what you want, and it certainly is not what the shell would do.    You should use ' ' instead:

        my @sys = (qw(ipset create), "temp_$set_name", split ' ',$set_
+type);
...
        @sys = (qw(ipset create -exist), $set_name, split ' ',$set_typ
+e);
[download]

$fh->open("> $f_dates_last") || die "Unable to save timestamp urls in 
+$f_dates_last: $?";
[download]

The $? variable will have no useful information if open fails.    You should use $! or $^E instead.