# pre build a pattern  "foo\.edu|fum\.edu"
my $what = join('|', map(quotemeta, keys %main::fixers)) ;
sub tweak_links($)
{
    my $text_ref = shift;
    return($$text_ref =~
     s!(?<="http://)($what)(?=["/])!$main::fixers{$1}!ge);
}