grep { s/user::/USER:$o:/} @A; # make native Linux dir/file permissions uppercase
    grep { s/group::/GROUP:$g:/} @A; # idem
    grep { s/other::/OTHER::/} @A; # idem

##</code><code>##

    s/user::/USER:$o:/ for @A; # make native Linux dir/file permissions uppercase
    s/group::/GROUP:$g:/ for @A; # idem
    s/other::/OTHER::/ for @A; # idem

##</code><code>##

    $P{$k} =~ s/(?:user|group):[\s\S]*\K(other:.*)//mi;

##</code><code>##

    $P{$k} =~ s/[\n\r\s]+/ /g; # remove newlines