<b_jonas> perl -e-e($o="bin/culprits-ng") and die; open$O,">",$o or die; print $O qq{#!/bin/sh\\n},q{exec hg log -l 512 --template "{desc}\\0" -- "$@" | perl -0ne \'/^<([^>]*)>/ and!$t{$1}++and print"$1 "\'}; close$O;chmod 0755,$o or die;

b=bottle a=({no+more+$b\s,1+$b,{2..99}+$b\s}+of+beer) w=on+the+wall
x=(Take+one+down,+pass+it+around Go+to+the+store+and+buy+some+more)
for i in {99..0};{
echo "${a[i]^} $w, ${a[i]}.
${x[!i]}, ${a[i-1]} $w."
}|tr + \