s/user::/USER:$o:/, s/group::/GROUP:$g:/, s/other::/OTHER::/ for @A;

##</code><code>##

    $P{$k} =~ tr/ \n\r\t\f/ /s; # remove newlines