Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

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

Select or download this

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