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