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

open (IN, "+<C:/oracle/ora81/network/ADMIN/SQLNET.ORA") || die "cant open $!";

my @file = <IN>;

seek IN,0,0;

foreach my $file (@file){
$file =~ s/^SQLNET\.AUTHENTICATION_SERVICES=\ \(NTS\)$/#\ SQLNET\.AUTHENTICATION_SERVICES=\ \(NTS\)/i;
print IN $file;
}
close IN;