Id just like to point out that regexes like these, with test data and expected output would worthy additions to the regex test suite. This is especially true of unicode regexes. The perl core is curently impoverished in terms of unicode regex tests.

Update: Please don't upvote this node to show your approval. Contribute some test cases instead. Its much more valuable to everybody.