$_='Some string with $foo and bar';
$bar='bar';
$foo='$bar';
/$bar/ and print "$&\n";
/$foo/ and print "$&\n";
/\Q$foo\E/ and print "$\n";