Help for this page
#!/usr/bin/perl ... my $want = $have =~ s{\|[^|]*\|}{ $& =~ tr/*/-/r }ger; print "$have\n$want";
# turn * into - within |...| regions A |simple*example| is |so*simple| to come*up |with ... # turn * into - within |...| regions A |simple-example| is |so-simple| to come*up |with these-days|