Grand Obfuscator for the Mass

# perl code
pack "B*",join("",map{s/.{10}//;tr/ #/01/;tr/01//dc;$_}sort grep{/^## ### ##/}open(_RRG,$0)&&<_RRG>);
# shell script
`grep '^## ### ##' $0|sort|perl -e'print pack "B*",join("",map{s/.{10}//;tr/ #/01/;tr/01//dc;$_}<>)'`