#!/usr/bin/perl
$|=1;

use CGI qw/:standard/;
print header('text/plain');

open (LIST,"<list.db");
while (<LIST>) {
  chomp;
  if ($_ =~ /^###/) 
    {$url=<LIST>;
     $ort=<LIST>;
     chomp($ort);
     chomp($url); 
    # print "<p><li><strong><a href=\"$url\">$ort</a></strong><br>\n";
     next;}
  ($name,$email) = split(/#/,$_,2);
  chomp($name);
  chomp($email);
  if ($email ne "" && $email !~ /\#/)
    {print "$email\n";}
    #else
   #{print "<dd>$name<br>\n";}
  
}
close (LIST);