This one is pretty straighforward once you see through the line noise. But for my novice brain it's reasonably complex. It's also my first shot at using eval for anything. Yes, I've led a sheltered life.

If you take the time to figure it out you'll find an anonymous array, a list, a regexp, and a few other goodies in there, along with junk that doesn't do anything, but the untrained eye has to hunt.

Here it is:

---

for(q=1517081319272609201819270013141907041727150417112707000210041728
+26==~m=\d{2}(?#~$m;print"hi mom.\n";)=sigs){$$m.=[q=a=..q$z$,q$"$,$",
+$/]->[$_]}eval$$m
[download]

This is just a chance for me to think through 'puzzles' and learn something along the way. I welcome comments, as I enjoy discovering new facets of Perl.

"If I had my life to do over again, I'd be a plumber." -- Albert Einstein