#!/usr/bin/perl -p
BEGIN { $site = ""; }
if (/ServerName +([^.]+)\./) { $site = "$1"; }
if ($site ne "") {
	s/ServerAlias (.*)/ServerAlias $1 $site.free $site/;
}