192.169.32.0/255.255.255.0
192.169.72.0/255.255.255.0
192.169.73.0/255.255.255.0

##</code><code>##

/file1 *(rw,sync,no_root_squash,no_subtree_check)
/file2 *(ro,sync,no_root_squash,no_subtree_check)
# shares for Tsp InstallServer
file3 *(ro,sync,no_subtree_check)

##</code><code>##

/file1 192.169.32.0/255.255.255.0(rw,sync,no_root_squash,no_subtree_check)
/file1 192.169.72.0/255.255.255.0(rw,sync,no_root_squash,no_subtree_check)
/file1 192.169.73.0/255.255.255.0(rw,sync,no_root_squash,no_subtree_check)

/file2 192.169.32.0/255.255.255.0(ro,sync,no_root_squash,no_subtree_check)
/file2 192.169.72.0/255.255.255.0(ro,sync,no_root_squash,no_subtree_check)
/file3 192.169.73.0/255.255.255.0(ro,sync,no_root_squash,no_subtree_check)
# shares for Tsp InstallServer
file3 192.169.32.0/255.255.255.0(ro,sync,no_subtree_check)
file3 192.169.72.0/255.255.255.0(ro,sync,no_subtree_check)
file3 192.169.73.0/255.255.255.0(ro,sync,no_subtree_check)

##</code><code>##

sub replace_exports {

        my $exports = 'exports';
        open (EXPORTS,"<exports") ||die "Error opening exports file";
        my @lines = <EXPORTS>;
        close (EXPORTS);

        my $lines;
        my @changes;
        foreach(@lines) {
        $_ =~  s/\*/@finalnwlist/g;
        push(@changes,$_);
        }

        open(EXPORTS, ">", $exports) || die "File not found";
        print EXPORTS @changes;
        close(EXPORTS);

        }
replace_exports ();