Select Code to Download

 s/(?<=[a-z])-(?=[a-z])/ /g;

my %replacement;

...
for my $item ( keys %replacement ) {
    s/$item/$replacement{$item}/g;
}

my $replacements = 
 [
...
for my $edit ( @$replacements ) {
    s/$$edit[0]/$$edit[1]/;
}