my @emails;
my $ADMINLIST = '/path/to/admin.lst';
open(IN,"$ADMINLIST") or die("Can't open $ADMINLIST: $!");
while (<IN>){
  if (my $addr = (split(/:/,$_))[4]) {
     push(@emails,$addr);
  }
}
close IN;