Regexp::Assemble kind of gets you there, you can feed it strings and it'll spit out a regex.