my $var_one = "a string";

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

copy_file("afile");