This is a really really good obfuscation. Not that difficult
to work out, but very creative. Bravo.
On a side note, it worked well with my perl 5.005_3, but not with 5.6 (prints a blank line).
The following adaptation does work with 5.6, but not with 5.005_03
(Global symbol "$uo" requires explicit package name at (eval 1) line 2.). Go figure.
Yeah, well it took me forever to figure out how to capture Perl's builtin warnings. It is quite difficult. I had to resort to capturing a fatal error message (I was using a different method, but it didn't work -- trying to get the "Useless use of variable in void context" message, but couldn't figure out HOW).
Then it occurred to me -- how about I see if there's an error message that contains all the letters I need, and indeed there are several. (This is a sign that Larry played Zero-Wing.)
And it irks me that Perl has changed the error handling/catching method in 5.6.0. Oh well.
Actually, I just guesstimated the fonts... it came out to Book Antiqua for "Base" and the other italicized text (though Garamond was a closer match, its 'a' looked really odd), and Tahoma on "For Great Justice" and "Are Belong To Us". Garamond was used on the apostrophe between TO and US, however.
Thanks for expanding my vocabulary, by the way :-)