$class = '...';
$color = color_of($class);

sub color_of {
    $class = shift;
    my $t = first { $class =~ /$_->{'re'}/ } @rules;
    return $color->{'color'};
}