$valid = 0 if $parts[-1] =~ qr!^\d.*!;