perl -pi -e 's/^$user:[^:]{13}/$user:$pass/g' /etc/passwd`;