So, basically, you want to read a file with = separeted entries?

This should work:

open F,"<","/path/to/file" or die "can't open file: $!";
while (<F>) {
   chomp;
   my ($name,$color) = split / = /;
   print "Name = $name, Color = $color\n";
}
close F;
[download]