my $text = $_[0];
	my $link = $_[1];
	my $email_link = (defined $_[2] ? $_[2] : '');
	if (eval "use URI::Find; 1;") {
		my $finder = URI::Find->new(
			sub { return sprintf($link,@_); }
		);

		my $call = sub { return $_[0]; };
		if ($email_link ne '' && eval "use Email::Find; 1;" ) {
			my $finder = Email::Find->new(
				sub { return sprintf($email_link,$_[0]->format,$_[1]); }
			);
			$call = sub	{
				my $text = shift;
				$finder->find(\$text);
				return $text;
			};
		}
		$finder->find($text,$call);
	}