Without commenting on (or even understanding!) the rest of the code, my ears perked up on this:

/^"\s*(.*)\s*"\s*,\s*"\s*(.*@.*)\s*"\s*$/;
$nomes[$. - 1]=$1;
$mail[$. - 1]=$2;
$nomes[$. - 1]=~s/\\(.)/$1/g;
[download]

Never use $1 except in the context of knowing that you had a successful match. If the match fails, you'll get a stale $1, and that could ruin your day. In this case, if the match should never fail, add an "or die" to the match line.