Select Code to Download

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