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