use 5.018;

my $line = '        [Category("notestrecord")]';
my $pattern = qr/[Category("notestrecord")]/;
 
if($line =~ /\s*$pattern/)