sub tweak_links($)
{
    my $text_ref = shift;
    my $modified = 0;

    while (my($key,$value) = each(%main::fixers)) {
        if($$text_ref =~ s|"(http://)$key(["/])|"$1$value$2|g) {  #"
            $modified = 1;
            }
        }
    return($modified);
}