$user =~ s/:.*$//mg;
$user =~ s/\n/,/g;