Be kind, this is my first obfu! This sad little bit of code was something I hacked together for a birthday card for a friend who knows a little Perl.
Yes, I understand that it's extremely simple and can probably be done in less than one line. But hey, give me a break! It took me a little while to come up with something slightly clever, and I'm proud of what I managed. Sorry, no ``JAPH'' this time.
And if you're wondering, this was my (also) sad attempt at an ASCII birthday cake.
Constructive criticism is greatly appreciated.