$~+=length((Fizz)[$_%3].(Buzz)[$_%5]||$_),$/for split' ',<>;print$~