in reply to Substitution problem
my $pat = join '|', map "\Q$_", keys %hash; $value =~ s/-($pat)-/$hash{$1}/g; [download]