Help for this page

Select Code to Download

Select or download this

s/`(\w+\s+[\w\s]+)`/space_subst($1)/eg;

Select or download this

>perl -wMstrict -le
"my $s = q{foo `bar baz` quux};
...
"
foo bar_baz quux
foo `bar_baz` quux