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;
}