my %replace = (
    apples => 'yummy',
    oranges => 'yummier',
    bananas => 'yummiest',
);

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