请教一个正则表达式

__lxmxn__

这样的效果吗？

1. #! perl -w
   
2. use strict;
   
3. 
   
4. open my $fh,"<errs.txt";
   
5. undef $/;
   
6. 
   
7. my $context=<$fh>;
   
8. while( $context =~ m/\(AAA\)(?>[^()]+)\(CCC\)/gs ) {
   
9.         print '-->',$&,"\n";
   
10. }
    
11. 
    
12. close $fh;
    

复制代码