in reply to Parsing a file with multiple delimeters

How about something like: 

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

[download]

In Section Seekers of Perl Wisdom