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 ();