A Bash or Perl Script to alter Bind files

[mariolima]

In a Linux Serverm I have tons of those /var/named small files, and within them, strings like these:

anything IN A 200.157.211.200
anything IN A 200.157.211.200
anything IN A 200.157.211.200

obs: as you see they are not sharply positional.

I need a bash or Perl Script to be executed at command line, to change string like these to:

anything IN CNAME srv1.multisitesdominios.com.br.

The Script should read a list text file with all the names of the files, like:

domain1.com
domain2.com.br
domain3.org
etc.

Could any one write such a string for me? I thank a lot in advance.

Mario Lima./