I hope it isn't too late for my contribution.
Nothing special. Just to wish you all a pleasant new year.

perl -e '$_=sprintf("%d",pack "H*",b).unpack "H*",b;m/\d$/;$b=$&;m/^\d
+/;print "$b$&$&$b$/"'

perl -e '$a=unpack("H*",d)-unpack "H*",b;$b=sprintf"%d",pack"H*",b;pri
+nt "$a$b$b$a$/"'

perl -e '$b=$a=ord(b)-ord(a);print++$a,--$b,$b,$a,$/'

perl -e '$a=@{[a,b]};$b=@{[]}; print "$a$b$b$a$/"'

perl -e '($a=$%)++;print ++$a,$%,$%,$a,$/'
[download]

Cheers

 _  _ _  _  
(_|| | |(_|><
 _|
[download]