#!/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";
}