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
[download]

prints:

A) title: matches
a) title: does not match
A) TItlE: matches
[download]