my %fruitcolors = ( banana=>"yellow" );
$_ = "applebananachocolate";
s/apple(banana)chocolate/$fruitcolors{$1}/ie;

##</code><code>##

s/(apple)(banana)(chocolate)/$1$fruitcolors{$2}$3/ie;