Select Code to Download

#!/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|