Select Code to Download

while(<LINKFILE>) {

...
        ($key,$data) = split("==");
        $links{$key} = $data;
}

$content = join("",<FILE>); # this is better replaced with arturos met
+hod
                            # of reading in whole file
...

        $content =~ s/$k/$links{$k}/gm;
}