Hello,everyone.
I am trying replace atoms in UnitCell using MaterialsScript.
For example, 
AgO2 UnitCell have atoms(Ag,Ag,Ag,Ag,O,O)
Replace Ag to Zn, 
ZnO2 UnitCell have atoms(Zn,Zn,Zn,Zn,O,O)

I write this script,,,,

#!perl
use strict;
use Getopt::Long;
use MaterialsScript qw(:all);

my \$doc = \$Documents{"Ag2O.xsd"};
my \$atoms = \$doc->UnitCell->Atoms;

foreach my \$atom (@\$atoms){
print \$atom->Name."\n";
}

I cant understand how to write,,,
I don't have enough knowledge to write it myself, so I would appreciate it if you could write it instead.

Thanks
TK