#!/usr/bin/perl
#
use strict;
my $scalar = "::fruits||apple::fruits||orange::vegetable||celery::vegetable||lettuce";

$scalar =~ s/::vegetable\|\|celery//;

print $scalar;