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

##</code><code>##

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