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

my @folders = qw(inc Inc iNc incr src Src);
my $folders_re = join '|', map {quotemeta} @folders;

my $mk = "./media/common/max/tail/common.mk:	$(PROJECT_ROOT)/../../Utils/inC";

my @folder_match;

if ($mk !~ /$folders_re/i) {
	push @folder_match ,$mk;
}

print "@folder_match\n";