Perl of wisdom

I know, it looks like a burst of line noise, or maybe a regexp (but I repeat myself).