Select Code to Download

my($text) = "(network)(test)(ifcfg)";
my(@matches) = ($text =~ m/\((.*?)\)/g);
my $match_count = scalar(@matches);
print "The following $match_count matches were found:\n";
foreach my $match (@matches) {print "  $match\n";}