Select Code to Download

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

for my $foo (...) {
    my $color = first { $class =~ /$_->{'re'}/ } @rules;
...

    ...
}

my $color = ${first { $class =~ /$_->{'re'}/ } @rules}->{'color'};