my $var_one;
sub copy_file {
  my $x = "<p>The variable is $var_one.</p>";
  $x =~ s|(\$\w+)|$1|eeg; print $x;
}