#! perl
use strict;
use warnings;

my $lineCount;

while (my $line = <DATA>)
{
    chomp $line;
    ++$lineCount;

    if ($line =~ / ( " .*? " ) /x)
    {
        my $zone = $1;
        print "Config line=> $lineCount; Value=> $line; zone=> $zone\n";
    }
}

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