Select Code to Download

$_       = 'foo bah bar';
$find    = 'bah';
...

$\ = "\n";
print;      # "foo [\1] bar" and not "foo [bah] bar"

$_       = 'foo bah bar';
$find    = 'bah';
...

$\ = "\n";
print;

$_       = 'foo bah bah bar';
$find    = 'bah';
...

$\ = "\n";
print;