open(SNMPFILE,"+< $local_dir\/cpsnmpagent.cfg"); @ARRAY = ; foreach $element (@ARRAY) { if ($element=~/^PABPT.ROW/) { print "$element matches\n"; $element =~ s/$element//; print "element is now $element\n"; } } seek(SNMPFILE,0,0); print SNMPFILE @ARRAY; truncate(SNMPFILE,tell(SNMPFILE)); print SNMPFILE "$conf_chg0\n"; close(SNMPFILE);