Pull an IP address from a string of text.

sub extract_ip {
		my $txt = shift();

		# 4 octets surrounded by some word boundary
		if ($txt =~ /\b((\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3}))\b/) {
				if ($2 > 255 || $3 > 255 || $4 > 255 || $5 > 255) { return ''; }

				return $1;
		}

		return '';
}