<>;$_++for@_[glob`dd`];print-3+grep$_<2,@_