use warnings;
use strict;

while (<DATA>) {
    chomp;
    if (/A\) (?i:Title)/) {
        print "$_: matches\n";
    }
    else {
        print "$_: does not match\n";
    }
}

__DATA__
A) title
a) title
A) TItlE

##</code><code>##

A) title: matches
a) title: does not match
A) TItlE: matches