Ярослав Астафьев

Но на вашем месте я бы просто приписал бы 'www.' слева и воспользовался бы просто регуляркой в духе
$_ = «www.» + serverName;
s/^(?:\w+\.){0,2}(\w+\.\w+\.\w+)$/$1/g

server_name s"~^(?\w+\.)?(?\w+\.)?(?\w+\.)(?\w+)$«htttp://(?($part2)www|)$part3$part4»g

Конечно, если язык поддерживает конструкцию (?(n)то|иначе). Такую конструкцию можно написать с помощью ретроспективных проверок.

P.S.
Не вините за синтаксис, точных правил не знаю