Excellent!

Thanks for showing that this solution exists.

(I hoped it would, but was too lazy to look it up :)

Just one remark: I hope the OP doesn't expect that those RegExes always work in other languages than Perl.