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