// Строка ~230-240, файл _include/comments.php
function s2_bbcode_to_html ($s)
{
    global $lang_common;

    // Надо создать анонимную функцию
    $callback = function ($m) {
        $link = $m[1];
        
        $long  = utf8_strlen($m[1]) > 55;
        $short = ($long ? utf8_substr($m[1], 0 , 42) . ' … ' . utf8_substr($m[1], -10) : $m[1]);
        
        return "<noindex><a href=\"$link\" rel=\"nofollow\">$short</a></noindex>";
    };

    $s = str_replace("''", '"', $s);
    $s = str_replace("\r", '', $s);

    $s = preg_replace('#\[I\](.*?)\[/I\]#isS', '<em>\1</em>', $s);
    $s = preg_replace('#\[B\](.*?)\[/B\]#isS', '<strong>\1</strong>', $s);

    while (preg_match ('/\[Q\s*=\s*([^\]]*)\].*?\[\/Q\]/isS', $s))
        $s = preg_replace('/\s*\[Q\s*=\s*([^\]]*)\]\s*(.*?)\s*\[\/Q\]\s*/isS', '<blockquote><strong>\\1</strong> '.$lang_common['Wrote'].'<br/><br/><em>\\2</em></blockquote>', $s);

    while (preg_match ('/\[Q\].*?\[\/Q\]/isS', $s))
        $s = preg_replace('/\s*\[Q\]\s*(.*?)\s*\[\/Q\]\s*/isS', '<blockquote>\\1</blockquote>', $s);
    
    // И вот тут надо поменять второй аргумент и убрать флаг 'e'
    $s = preg_replace_callback('#(https?://\S{2,}?)(?=[\s\),\'\><\]]|&lt;|&gt;|[\.;:](?:\s|$)|$)#u', $callback, $s);
    $s = str_replace("\n", '<br />', $s);
    return $s;
}