Select Code to Download

  while (<INPUT>) {
   ($userName,$emailAddress,$division,$fullName)  = split(/\|/, $_);
...
      last;
     }
   }

  my $exists = 0;
  while (<INPUT>) {
...
   } else {
    print "$emailAddress doesn't exist"\n";
   }

sub main {
  my $input_qfn   = "input.file";
...
    }
  }
}

David@domain.com exists in the pattern file
Cory@domain.com doesn't exist in the pattern file
Tania@domain.com exists in the pattern file
Geoffrey@domain.com doesn't exist in the pattern file