#!/usr/bin/perl

use strict;
use warnings;

open( my $f, '<', 'link.list' ) or die;
while(<$f>){
	chomp;
	my( $file, $old, $new ) = split( / /, $_, 3 );
	print "$file\n\t$old -> $new\n";
	system( 'perl', '-p', '-ibak/*', '-e', 's,href="'.$old.',href="'.$new.',g', $file );
}