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