my $string = "cheese";
my $need_to_interpolate = 'smell my "$string"\n';
$need_to_interpolate =~ s/"/\\"/g;
print eval(qq{"$need_to_interpolate"});