$ pwd
/Users/nick/monks
$ ls | wc -l
    39
$ perl -i'*' -anle"@f=</Users/nick/monks/*>; shift @F; push @F, scalar @f; print join ' ', @F;" counts
$ cat counts
$