$ 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 = $^N; print $zone; } } ' VLAN Internet_Only