Select Code to Download

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

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

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

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