$.=$+[0]*print/(.){$.}|(.)/while<>