$url = "http://66.216.39.12/inv"; $url =~ m!https?://((?:\d{1,3}\.){3}\d{1,3})!i; $ip = $1;