Unless you can guarantee that $color is always a string without meta characters, this is safer:

$raw = '$parsed = "fred has \Q$color\E eyes";';
eval $raw;
print $parsed;
[download]