#!/util/bin/perl

$registertxtreal = "/net/wings/info/www/academic/department/eng/cie/ees/faculty/rabideau/class/register.txt";
$EmailBook="ha.txt";

open (FILE,"$registertxtreal") || die "Can't Open $registertxtreal: $!\n";
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;

open(Book,">$EmailBook");

print Book "EAS308Mailgroup(";
for ($i=0;$i<=$SIZE;$i++)
{
   @person=split(/ +/,$LINES[$i]);
   ($LastName, $FirstName) = split(/,/, $person[1]);
   print Book "   $LastName $FirstName <$person[3]>,\n";
}
print Book ')';

close(Book);