missing last character in perl regex

Question

(log doggies) (log needs)

^\\(log (.*)[^)]\\)\\s*\\(log (.*)[^)]\\)$

It works with the exception of missing character at the end \"s\" as:

Answer 1

The [^)] eats your s-es. Why do you need it?

my $s = '(log doggies) (log needs)';
say for $s =~ /^\(log (.*)\)\s*\(log (.*)\)$/;

Output:

doggies
needs