Select Code to Download

my $line    = '        [Category("notestrecord")]';
my $pattern = 'Category("notestrecord")';
...
} else {
    print "No match!\n";
}

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