sub copy_file {
  open(IFILE, "<afile");
  while($x = <IFILE>) {$x =~ s|(\$\w+)|$1|eg; print $x};
  close(IFILE);
}