my %roles      = qw /consultant  -1
                     editor       0
                     programmer   2/;
         
my %pre_attrs  = qw /former      -2/;
            
my %post_attrs = qw /trainee     -1
                     admin        1/;  
            
my $def_score  = -2;
            
my @trust      = ([full   =>  2],
                  [strong =>  1],
                  [normal =>  0],
                  [weak   => -1],
my $def_trust  =  'none';
        
my $max_score = -10000;   # Some big, negative number.
foreach my $type (@usertypes) {
    my $score = 0;
    my $attrs = 0;
         
    while (my ($key, $value) = each %pre_attrs) {
        if ($type =~ s/\Q$key\E\s*//) {
            $score += $value;
            $saw_pre = 1;
            last; 
        }
    }
         
    while (my ($key, $value) = each %roles) {
        if ($type =~ s/\Q$key\E\s*//) {
            $score += $value;
            $saw_role = 1;
            last;
        }
    }
            
    while (my ($key, $value) = each %post_attrs) {
        if ($type =~ s/\Q$key\E\s*//) {
            $score += $value;
            $saw_post = 1;
            last;
        }
    }
                  
    if (length $type || $saw_pre && $saw_post || !$saw_role) {
        # Illegal or unknown usertype.
        $score = $def_score;
    }

    $max_score = $score if $score > $max_score;
}
         
foreach my $level (@trust) {
    return $level -> [0] if $max_score >= $level -> [1];
}
            
return $def_trust;
[download]

Abigail