if ($line =~ /^set\szone\s("([^"]*)"|id\s\d+\s"([^"]*)")/) { my $zone = $1; print "Config line=> $lineCount; Value=> $line; zone=> $zone\n"; }