#!/usr/bin/perl -w 
use strict;  
use warnings;
my @folders=("inc","Inc","iNc","incr","src","Src");
my $mk = "./media/common/max/tail/common.mk:	$(PROJECT_ROOT)/../../Utils/inc";
my $folder_match;
my @folder_match;
my $found = 0;
foreach $folder_match(@folders)
{
    if($mk =~ /^\/\Q$folder_match\E$/i)
        {# if $mk doesnot match to any+one of @folders,then only push
        $found = 1;
      }
}
print "\nFOUND:$found\n";
if (not $found) {
    push @folder_match ,$mk;
}
print "@folder_match\n";