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