#!/usr/bin/perl -w 
use strict;  
use warnings;
my @headers = ("fstring.h");
my $header_file ="string.h";
my @header_present;
@header_present = grep( (/\Q$header_file\E/i), @headers); 
if (@header_present) {
   print "Header present\n";#should not print
}