#!/usr/bin/perl
    $|=1;
    while (<>) {
        s@http://mirror.danny.cz/fedora@http://ftp.linux.cz/pub/linux/fedora@;
        s@http://mirror.danny.cz/rpmfusion@http://ftp.sh.cvut.cz/MIRRORS/rpm-fusion@;
        s@http://mirror.danny.cz/centos@http://ftp.sh.cvut.cz/MIRRORS/centos@;
        print;
    }