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