$$text_ref =~ s{"http://\K([^/"]*)(?=["/]){$main::fixers{$1} // $1}eg;