Cool/useful short examples of Perl?

[Jason Clifford]

On Tue, 2011-05-31 at 15:06 +0100, Mark Fowler wrote:
> Depends if you're looking semi-technical or not.  How about my hostify
> script that puts DNS entries into /etc/hosts?
> 
> http://blog.twoshortplanks.com/2011/01/30/hostify/

Am I alone in finding the code elements of that page very hard to read -
the deeper the grey gets the harder it is to read against a black
background.