#add
    if ($permissions =~ /\+ ([a-z])/xms ) {
        $new_permissions = qq{$old_permissions$permissions};
    }