Help for this page
s/`(\w+\s+[\w\s]+)`/space_subst($1)/eg;
>perl -wMstrict -le "my $s = q{foo `bar baz` quux}; ... " foo bar_baz quux foo `bar_baz` quux