Select Code to Download

  if (/(\$[^\/\n\t]*)/) {

    my $var = $&;
    my $key = $var;
    substr($key, 0, 1) = "";

while(<FILE>) {
  if (my ($key) = /\$(\w+)/) {
...
  }
  print;
}