/(.+):(.+)@(.+)/;

	$user = $1;
	$pass = $2;
	$domain = $3;

	if($domain = ~ /(?:\d{1,3}\.){3}\d{1,3}/) {
		$domain = gethostbyaddr($domain, AF_INET);
	}

	print $domain . "/n";