$foo = '\$bar'; # put the backslash in yourself
$bar = 'snafu';
$_ = 'I am certain that the value of $bar is "snafu".';
print $_,"\n";
s/$foo/BAR/g;
print $_,"\n";