Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump;
...
  "set zone id 100 \"Internet_Only\"",
  { 1 => "id 100 \"Internet_Only\"", 2 => undef },
]

    use Text::Balanced qw/ :ALL /;
    my @parts = extract_multiple(
...
        ],
    );
    dd\@parts;

["set zone ", "\"VLAN\"", " vrouter ", "\"trust-vr\""]
["set zone id 100 ", "\"Internet_Only\""]

    my @parts = split /("[^"]*")/, $line;
    dd\@parts;

my @parts = split /((?:\"(?:\\\"|(?!\").)*\"|\'(?:\\\'|(?!\').)*\'))/,
+ $line;
dd\@parts;