s/(?<=apple)(banana)(?=chocolate)/$fruitcolors{$1}/i;