Select Code to Download

#!/usr/bin/perl
use strict;
...
stringb
junk data
junk data

if ( @{$header{$section}} = /stringa/gm ) {
    print "matched on stringa\n";
...
if ( @{$header{$section}} = /stringc/gm ) {
    print "C match\n";
}

Found the following strings within body *** 3993.23384j
stringc
...
Found the following strings within body *** 3993.23993k
stringa
stringb

Found the following strings within body *** 3993.23384j
C match
...
Found the following strings within body *** 3993.23993k
matched on stringa
regex on string b