>>347
Perlのmolester-minの方はライブラリ使わず9行。(詰めれば6,7行以内に収まりそう。
http://ansuz.sooke.bc.ca/software/molester/