Select Code to Download

my $var_one;
sub copy_file {
...
}

copy_file();

my $var_one;
sub copy_file {
...
  while($x = <IFILE>) {$x =~ s|(\$\w+)|$1|eeg; print $x};
  close(IFILE);
}

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

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