find vhost in nginx config files

ngx-vhost.pl

# http://lists.centos.org/pipermail/centos/2012-December/130613.html
while (<>) {
 chomp();
  next if (m/^\s*#/); #comment
  if  ($enclosed) {
    if (m/}/) {$enclosed = 0;} # end found
    tr/}\;//d; #remove
    push @servers, split(); #anything else on line
    next;
   } else {
    next unless m/server_name/;
    if (m/{/)  { $enclosed = 1;}
    if (m/}/) {$enclosed = 0;} #on same line?
    s/server_name//;
    tr/{}\;//d ;
    push @servers,split();
   }
 }
foreach (sort(@servers)) { print "$_\n";}