perl -e 'use Encode;@e=Encode->encodings(":all");for(@e){print $_,"\n";}'

ソースコードが以下に黒いかを判別する方法を バイト数/行数として計算した。 今日書いたプログラムのコードは $ wc /tmp/hoge.pl 32 79 1030 /tmp/hoge.plだったので密度は 32.1875 byte/line濃い目のコードだと思う。