$raw = '$parsed = "fred has $color eyes";';

eval $raw;

print $parsed;