while (<FILE>) {
   chomp;
   my ($dll, $users, $flag) = split(/\|/, $_);
   my @users = split(/,/, $users);
   ...
}