my $perm_re = qr/[ugoa]+=[rwxsS]+/;
$val =~ /^(?:$perm_re(?:,$perm_re)*)$/;