Select Code to Download

my %replace = (
    apples => 'yummy',
...
);

$string =~ s!(apples|oranges|bananas)!$replace{$1} || $1!e;