$foo = '$bar';
$bar = 'snafu';

$_ = 'I am certain that the value of $bar is "snafu".';

print $_,"\n";

s/$foo/BAR/g;

print $_,"\n";