%hRegex = %{$hRegexAll{domain}}; $sub = subst($hRegex{regex}, $hRegex{replace}, $hRegex{after}); $_ = $sHeader; $sub->(); $sHeader = $_;