Select Code to Download

my %searchs = (
    stringa => sub { print "matched on stringa\n"; },
...
        }
    }
}

while (<DATA>) {
    chomp;
...
    /patternb/ && print "regex on string b\n";
    /patternc/ && print "C match\n";
}