============================================================
use strict;
use FileHandle;

my $scalar_file = shift @ARGV;
chomp($scalar_file);

my $scalar_handle = new FileHandle ("$scalar_file") or die "Error:Unable to open file $scalar_file\n";

my $scalar;
while (defined($scalar = <$scalar_handle>)){
    print "Scalar : $scalar\n";
    $scalar =~ s"\:\:vegetable\|\|celery""g;
    print "Changed Sclalar:$scalar\n";
}

============================================================