I'd write that as (untested):

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

I assume non of the values of %main::fixers is undefined.