Corporate Collaboration (Web Techniques, Dec 2000)

 sub getEmailNotifyList
  {
    my( $web ) = @_;

    my $list = "";
    my $line = "";
    my $fileName = "$dataDir/$web/WebNotify.txt";
    if ( -e $fileName ) {
     my @list = split( /\n/, readFile( $fileName ) );
     @list = grep { /^\s\*\s[A-Za-z0-9\.]+\s+\-\s+[A-Za-z0-9\-_\.\+]+/ } @list;
      foreach $line ( @list ) {
       $line =~ s/\-\s+([A-Za-z0-9\-_\.\+]+\@[A-Za-z0-9\-_\.\+]+)/$1/go;
    if( $1 ) {
     $list = "$list $1";
    }
   }
   $list =~ s/^ *//go;
   $list =~ s/ *$//go;
  }
  return $list;
 }