Don't use perl books for \1 each in a substitution... this behavior is deprecated.

You can also just say: "perl books for @{[ ($var =~ /$regexp/)[0] ]} each".

I mean, come on... I can't be the only one who thought that upon seeing the title of this post, can I?

------------
:Wq
Not an editor command: Wq
[download]