perl -i'*' -anle"@f=<c:/test/*>; shift @F; push @F, scalar @f; print join ' ', @F;" counts