#!/usr/bin/perl
use strict;
use warnings;

my $start = "log4j.rootLogger=";
my $startlong = "log4j.rootLogger=INFO, FILE";
my $end = ", SYSLOG";

my $needs = 'log4j.rootLogger=INFO, FILE';
my $has = $needs . ', SYSLOG';

print "needs_matched $needs\n" if $needs =~ /^($start(\w+(,\s)?)+)(?!$end)$/;
print "has_matched $has\n" if $has =~ /^($start(\w+(,\s)?)+)(?!$end)$/;
print "needs_matched $needs\n" if $needs =~ /^(log4j.rootLogger=INFO, FILE)(?!, SYSLOG)$/;
print "has_matched $has\n" if $has =~ /^(log4j.rootLogger=INFO, FILE)(?!, SYSLOG)$/;