ServerName bar.woo.org

##</code><code>##

# get name of person, put it in $name
my $flag =0;
while (<OLD>) {
 # set the flag
 $flag =1 if /[^#]*ServerName $name.woo.org/;
 #now check to see if we've found the ending line
 if ($flag && #</VirtualHost>#) {
  print NEW "ScriptAlias blah blah\n";
  $flag =0;
 }
 print NEW; # implicit $_
}