Select Code to Download

my %hash;
for(@ARGV)
...
          'lexwhere' => '\'in(\'DIS\', \'DIM\', \'DIR\')\''
        };
(Data::Dumper is inserting those extraneous backslashes, ignore them)

my @vals =  $hash{lexwhere}=~/'([^'])'/;