Select Code to Download

my @rules = 
(
...
        color => '',
    },
);

#!/usr/bin/perl

...

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