s{Password=\Q$password\E}{Password=$newpass} if $answer =~ /y/i;