$name = 'celery';
$scalar = "::fruits||apple::fruits||orange::vegetable||celery::vegetable||lettuce";
$scalar =~ s/::(fruits|vegetable)\|\|$name//gsi;
print "$scalar";