Select Code to Download

#use strict; #uncomment to kill the code
my $s = 'foo';
$$s = 'bar';
...
Output:
$foo = bar
$$s = baz

if ($#-) {
    no strict 'refs';
    print "$#+ matches found", $/;
...
        print  "$haystack contains ${$_} at $-[$_]", $/;
    }
}