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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

        my @sys = (qw(ipset create), "temp_$set_name", split / /,$set_type);
...
        @sys = (qw(ipset create -exist), $set_name, split / /,$set_type);

##</code><code>##

        my @sys = (qw(ipset create), "temp_$set_name", split ' ',$set_type);
...
        @sys = (qw(ipset create -exist), $set_name, split ' ',$set_type);

##</code><code>##

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