Argh

OK, but the problem here are nested capture groups.

you can't rely on $2 or $3 to be correct if $named is something like [[ ($http) ][ ($title) ]]

Cheers Rolf

( addicted to the Perl Programming Language)

If you just don't like referring to the global %-, maybe something like:

s/$regex/transform(%-)/ge
sub transform {
   my %matches = @_;
   ...
}
[download]

Or you can do a second match.

s/($regex)/transform($1)/ge
sub transform {
   local $_ = shift;
   if (/^(\[\[($http)]\[($title)]])/) { return transform_named($2,$3) 
+}
   elsif (/^($http)/) { return transform_http($1) }
   ...
}
[download]

Or you might use something like this.

while (1) {
   if (/\G($named)/gc) { print transform_named($1) }
   elsif (/\G($http)/gc) { print transform_http($1) }
   ...
   elsif (/\G(.)/gcs) { print $1 }
   else { last }
}
[download]

This can be easily fixed by using named backreferences. \k<named> would refer to a match of the pattern (?<named>...).

look at the code again, it's an array that preserves the order.

In that case, it seems the hash isn't used.

yep, not yet. I've spared this part for simplicity of the posting.

But the coderef to the transformation is planed to be put in there.

Perl doesn't have ordered hashes thats why I'm improvising here.

Cheers Rolf

( addicted to the Perl Programming Language)