Sorry -- never visted the site nor read the book. It was created in response to a request for such a function at PerlGuru Forums.

japhy -- Perl and Regex Hacker