Help for this page
if (/(\$[^\/\n\t]*)/) {
my $var = $&; my $key = $var; substr($key, 0, 1) = "";
while(<FILE>) { if (my ($key) = /\$(\w+)/) { ... } print; }