Select Code to Download

use warnings;
use strict;
...
    );
    
$text =~ s/(fred|wilma)/$replace{$1}/ge;

bla wilma fred wilma fred bla wilma wilmawilma