my $ou ="# PATH=\$PATH:\$NAS_DB/sbin:\$NAS_DB/bin:\$NAS_DB/sbin";
print __FILE__." line".__LINE__." trace: ".$ou."\n";
if($ou =~ /^\s*#\s*(PATH=.*\$NAS_DB\/bin.*)$/)
{
my $str = $1;
$ou=~s/^\s*#\s*PATH=.*\$NAS_DB\/bin.*$/$str/;
print __FILE__." line".__LINE__." trace: ".$ou."\n";
}

##</code><code>##

 my $ou ="# PATH=\$PATH:\$NAS_DB/sbin:\$NAS_DB/bin:\$NAS_DB/sbin";
print __FILE__." line".__LINE__." trace: ".$ou."\n";
if($ou =~ /^\s*#\s*(PATH=.*\$NAS_DB\/bin.*)$/)
{
$ou=~s/^\s*#\s*PATH=.*\$NAS_DB\/bin.*$/$1/;
print __FILE__." line".__LINE__." trace: ".$ou."\n";
}