Since there are no carriage returns in you data file all the info got read as 1 entry.

You need to split your file data on "&" to get each entry. You then need to split each entry on "|" to get $user, $pass and $email.

@entries = split(/&/, @mydata);
foreach $entry (@entries) {
  ($user,$pass,$email) = split(/\|/,$entry);
  ## Work with the vars ##
}
[download]

mr greywolf