unless ($txt_collection =~ /([a-zA-Z]|([a-zA-Z],))+/) { print "Incorrect format"; $errors ++; }