#!perl -lp075 $_=$;+=y/c//-1