Select Code to Download

#!/usr/bin/env perl

...
__DATA__
set zone "VLAN" vrouter "trust-vr"
set zone id 100 "Internet_Only"

$ pm_pref_quote_regex.pl
Config line=> 1;    Value=> set zone "VLAN" vrouter "trust-vr";    zon
+e=> VLAN
Config line=> 2;    Value=> set zone id 100 "Internet_Only";    zone=>
+ Internet_Only

__DATA__
set zone "VLAN" vrouter "trust-vr"
...
blah
blah blah set zone "extra" whatever
blah blah blah "set zone id 12345 "extra2_a" something "extra2_b"

$ pm_pref_quote_regex.pl
Config line=> 1;    Value=> set zone "VLAN" vrouter "trust-vr";    zon
+e=> VLAN
Config line=> 2;    Value=> set zone id 100 "Internet_Only";    zone=>
+ Internet_Only
Config line=> 4;    Value=> blah blah set zone "extra" whatever;    zo
+ne=> extra
Config line=> 5;    Value=> blah blah blah "set zone id 12345 "extra2_
+a" something "extra2_b";    zone=> extra2_a

$ perl -MYAPE::Regex::Explain -e '
my $re = q{^set\szone\s("([^"]*)"|id\s\d+\s"([^"]*)")};
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------