This started as an idea for simple/quick encoding... but as I kept shortening it and using fun idioms, I found that it would make a great bit for my first obfuscation.
@j=qw{-2.3-2 -2.-4 -3.-.- -2.-3. -3.-.2 -2.4};
print map{s!(.)(\d)!$1x$2!eg;y.-.1.;y-.-0-;
chr unpack"N",pack"B32",substr'0'x32 .$_,-32}@j;