This is a small gift for perl monks. After simple deobfuscation you'll get simple calendar :-). Your comments and improvements are welcome.

$;=$|;$_=q;1-21010110101;;@;
=map{1..+30+$_,map{$"}1..7}m((-?\d))g;
$==pop;map{unshift+@;,$"}2..chop$=;
print+map{$_=>$"x(y^^^c^3)=>++$;%7?q++:"
"}@;
[download]