Perhaps the following will work for you:

use Modern::Perl;

my @strs = (
    '(View like all data) AND (Path not like /usr/bin)',
    '(View like all data AND Path not like /usr/bin)'
);

for (@strs) {
    s/all\s+([^)]+)(\)?\s+AND.+like\s+)([^)]+)/all %$1%$2%$3%/;
    say;
}
[download]

Output:

(View like all %data%) AND (Path not like %/usr/bin%)
(View like all %data% AND Path not like %/usr/bin%)
[download]

Hope this helps!