if($string =~/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/{
    $ip = $1;
}