ls /sbin|perl -aple'foreach(@F){$m{$_}++}"}"}"";{print"s#\b\b\$\x41+#DEAD#","\b"x6,"=",(values%m)[%m%%m],";","\x20"x3'