Occasionally, most of us would like to have an operation which generates a matching string from a regex. There is no such thing in perl (or elsewhere, afaik).

Not a Perl regex exactly, but (naively) in the same category -- see my reply further down.