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

if (index($line, $pattern) >= 0) {
	print "We have a match!\n";
} else {
	print "No match!\n";
}

##</code><code>##

if (index($line, $pattern) >= 0) { ... }