for (@array) { s/$inputline3/$encryptpw3/g; print ("\n\nYour Username and Password have been updated and saved!\n\n"); } #### s/^([^:]):\Q$encryptpw2\E/$1:$encryptpw2/