Нужна быстрая регулярка для поиска внешних ссылок в тегах <a>, которые не являются внутренними

<?php
echo "<pre/>";
$a = array(
            "<a href='index.php?fid=12'>Ссылка</a>",
            "<a href='index.php'>Ссылка2 </a>",
            "<a href='index^%php'>Ссылка4 </a>",
            "<a href='index'>Ссылка4 </a>",
            "<a href='inde44335.php'>Ссылка4 </a>"
            );
        foreach ($a as $v){
            if(preg_match("~<a\s*href=[\"'][\w]+(\.[\w?_=\~]+)?[\"']>[\wа-яёА-ЯЁ]+\s*<\/a>~u",$v)){
                echo htmlspecialchars($v)."<br/>";
            }
        }
?>

<?php
    $silci = " wdwqdw efefbergnegergergerngerger
gergergergergenrgern                <a href='site.php'>Главная</a>
        ffregreg        <a href='site123.php'>Главная</a> fwebfwbfewbfwbefwbefw
bergbergbe      egebgerbgebgerbe        <a href='www.site123.com'>Главная</a>
    bfwebfwebfwbfw          <a href='www.site123?index=123'>Главная</a> dwdwefbwfbf
        bgebgerbgerbge      <a href='123.html'>Главная</a> bebgebgebe
    begbergb            <a href='index'>Главная</a> dwewfbewfbwfebw
                ";
    
preg_match_all("~<a\s*href=[\"']((?!www|http|https)[\w]+(\.(php|html))?)[\"']>[\wа-яёА-ЯЁ]+\s*<\/a>~",$silci,$m);
    foreach ($m[0] as $v){
        echo htmlspecialchars($v)."</br>";
    }
?>

If(!preg_match(/target=.../)){
 str_replace('<a ', '<a target="blank"' $var);
}

/**
 * Удаляет протокол у ссылок (любой начинающийся на люб. симв. от 2 до 6 и следом двоеточие (слеши не обязательно)).
 *
 * @param string $url Адрес ссылки.
 * @return mixed
 */
function Url($url){
    $url = trim((string)$url);
    return preg_replace('~^\S{2,6}:/?/?~', '', $url);
}
 
/**
 * Проверяет является ли ссылка внутренней.
 *
 * @param string $url Адрес ссылки.
 * @return bool
 */
function IsMainHost( $url ){
    if(preg_match('/^'.preg_quote(Url($_SERVER['HTTP_HOST'])).'/', Url($url))){
        return true;
    }
    return false;
}
 
/**
 * Фильтрация адреса ссылки перед выводом (защищает от XSS).
 *
 * @param string $url Адрес ссылки.
 * @return string
 * @see UrlRender
 */
function SafeUrl($url){
    $url = trim((string)$url);
    if (empty($url)) return '';
    return HtmlChars((string)substr($url, 0, 2048), null, null, true);
}
 
/**
 * @param string $Url Адрес ссылки.
 * @return string
 */
function UrlRender($url){
    $url = trim($url);
    if($url == ''){
        return $url;
    }
    if(preg_match('~^\S{2,6}:/?/?~', $url) && !IsMainHost($url)){
        return "новая ссылка";
    }else{
        return SafeUrl($url);
    }
}

function RenderTagA($tag){
    $tag2 = preg_replace_callback('?', 'UrlRender', $tag); // <- ЧТО ТУТ ПИСАТЬ, ЧТО БЫ ПЕРЕДАТЬ ТОЛЬКО ЗНАЧЕНИЕ
    if($tag2 != $tag && !preg_match('/ target=/i')){
        $tag2 = str_replace('<a ', '<a target="_blank" ', $tag2);
    }
    return $tag2
}
 
echo preg_replace_callback('/<a .*<\/a>/i', 'RenderTagA', $echo);