Yes, I know about that module. Its biggest shortcoming is that it works on single characters, which makes it pretty useless for applying it to patterns that contain meta-characters.

For instance, the two patterns foo\d+bar and foo\s+1 will produce foo\\(?:d\+bar|s\+1), and that's not going to match anything the individual patterns match.