#!/usr/bin/perl

open (cdca.html);
s/CD/AD/g;
print $_;
close (cdca.html);