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);
    }