perl -MFile::Find -le 'find sub{$x+=-s$_},shift;print$x' some_dir

##</code><code>##

perl -MFile::Find -le 'find sub{return if/^\.$/;$x+=-s$_},shift;print$x' some_dir

##</code><code>##

perl -le 'sub r{$r=shift;print(chop$r),r($r)if$r}r("noisrucer")'