Select Code to Download

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

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

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

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

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

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