$ perl -le'
for my $line ( q/set zone "VLAN" vrouter "trust-vr"/, q/set zone id 100 "Internet_Only"/ ) {
    if ( $line =~ /^set\szone\s(?:id\s\d+\s|)"([^"]*)"/ ) {
        my $zone = $1;
        print $zone;
        }
    }
'
VLAN
Internet_Only