Hi MS Users,

I am trying to write a self crosslinking script.The Yellow atom is the reaction atom with the name R1.I want to put these two atoms in two variables (or an array) respectively.How should I write them?

Thanks in advance.

#!perl

use strict;
use Getopt::Long;
use MaterialsScript qw(:all);

my \$doc = \$Documents{"1.xsd"};
my \$atoms = \$doc->DisplayRange->Atoms;
my \$atom1;my \$atom2;my \$atom3;my \$atom4;my @atom;

foreach my \$atom(@\$atoms){

if (\$atom->Name eq "R1")
{ \$atom1 =\$atom;
foreach my \$atom_1(@\$atom1){
???
 
}
}  
}