my($text) = "(network)(test)(ifcfg)";
    my(@matches) = ($text =~ m/\((.*?)\)/g);
    print "The following @{[ $#matches+1 ]} matches were found:\n";
    print join(' and ', @matches) . "\n";
[download]

Just tweaking the version dasgar provided to remove a variable and generate the output in your original question.