#!/usr/bin/perl #edit contains the complete path of the files to be edited my $path = "/home/rjs/heena/edit" ; #geting a file handler open(FL, "$path"); #getting all the file names in the @array so that i can process the file one by one my @array = ; while ( my $array = shift @array) { my $file = $array; @ARGV = ($file); # $INPUT_RECORD_SEPARATOR $/=""; # $INPLACE_EDIT $^I=".bak"; print "all fine \n "; while(<>) { # nothing seems to happen after this piece of code s/CONFIDENTIAL(.*?)own\s+risk/ /sm; print ; } } #### /*****************************************************************************/ /* */ /* Copyright (c) 1996 - 2003 */ /* Campaco Systems, Inc. */ /* */ /* All Rights Reserved */ /* */ /* CONFIDENTIAL and PROPRIETARY -- */ /* No Dissemination or use without prior written permission */ /* */ /* Permission to use, copy, modify, distribute and sell this software and */ /* its documentation for any purpose is hereby prohibited, unless granted */ /* an explicit permission from Campaco Systems, and provided that the above */ /* copyright notice appears in all copies and that both that copyright */ /* notice and this permission notice appear in supporting documentation. */ /* */ /* Campaco Systems makes no representations about the suitability of this */ /* software for any purpose. */ /* It is provided "as is" without express or implied warranty. Modification */ /* of the code is allowed at the modifier's own risk.