#!/bin/perl -w
use strict;

open (REGFILE, "<$datadir/projects.dat") || die "Cannot open File1: $!";

open (NEWFILE,">>$datadir/subscribe\.dat") || die "Cannot open File2: $!";

my %seen_email; # hash email => 1
while( <REGFILE>) {
        my( $email, $name, $format);
        ($email, $name, $format, undef) = split /\|/;
        next if( $seen_email{$email});
        print NEWFILE"$email|$name|$format\n";
        $seen_email{$email}=1; # either just the email or the whole line
}

close (NEWFILE);
close REGFILE;