Select Code to Download

use strict;
use warnings;
...
local $Data::Dumper::Terse  = 1;
local $Data::Dumper::Useqq  = 1;
print(Dumper(\@terms), "\n");

sub dequote {
   my ($s) = @_;
...
            (?: [^\\,] | \\. )*
         )
      /xsgc && dequote("$1");