I know, I still have my black belt in perl somewhere. The one-liner is readable, too. Throw in some needless array-referencing-and-dereferencing so people can

I know, I still have my black belt in perl somewhere. The one-liner is readable, too. Throw in some needless array-referencing-and-dereferencing so people can rightfully consider perl a write-only language...