Select Code to Download

$foo = '\$bar'; # put the backslash in yourself
$bar = 'snafu';
...
print $_,"\n";
s/$foo/BAR/g;
print $_,"\n";