use strict;
use warnings;

my $scalar = "::fruits||apple::fruits||orange::vegetable||celery::vegetable||lettuce";
my $word = "Celery";

$word = lc $word;
$scalar =~ s/::\w+\|\|$word//g;

print $scalar;