You can also do the following

my $line = '        [Category("notestrecord")]';
my $pattern = 'Category("notestrecord")';

if($line =~ /\Q$pattern/)
{
    print "We have a match!";
}
else
{
    print "No match!";
}
[download]

By adding the \Q switch before the $pattern is the regex match