return unless m/^[a-cA-C]/;
   push(@nod, $_);