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

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

print $scalar;

##</code><code>##

#!/usr/bin/perl
#
use strict;

use Data::Dumper;
my @arr = ( {fruits => "apple"},  
		    {fruits => "orange"}, 
			{vegetable => "celery"},
	      );

print Dumper(@arr);