#!/usr/bin/env perl

use strict;
use warnings;

my $re = qr{ set \s zone \s (?> id \s \d+ \s | ) \" ( [^"]+ ) }x;
my $out_format = "Config line=> %s;    Value=> %s;    zone=> %s\n";

while (<DATA>) {
    next unless /$re/;
    chomp;
    printf $out_format => $., $_, $1;
}

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