Select Code to Download

sub dequote {
   local $_ = (@_ ? $_[0] : $_);
...
           @parts;

print("=~ m/^(?:$list)\$/");