$check += ord $_ for split //, $in;