open(IN, '<', $File1) or die $!;
open(OUT, '>', $Replace_html) or die $!;

while(my $line = <IN>) {
    $line =~ s/$c/$b/g;
    print OUT $line;
}

close(IN);
close(OUT);