warn qq(\nDILBERT 1a: "), Dumper($q_meta), " ", Dumper($page_title) if $is_dilbert;

DILBERT 1a: "$VAR1 = "Haji\\ Ayub\\ Afridi";
 $VAR1 = "Haji Ayub Afridi";"

##</code><code>##

#!/usr/bin/perl

my $q = 'Haji Ayub Afridi';
my $page_title = 'Haji Ayub Afridi';
my $q_meta = quotemeta($page_title);

my $tmp_test = ($page_title =~ /$q_meta/i) || 0;
if (!$tmp_test) {
    print "BAD";
} else {
    print "GOOD";
}