源码如下：

 
    
     
         
  1. my $a='nobody'; 
    2.  
         
  2. my $b='bodysnatcher'; 
    3.  
         
  3.  
    4.  
         
  4. if("$a $b" =~ /^(\w+)(\w+) \2(\w+)$/) 
    5.  
         
  5. { 
    6.  
         
  6.    print $1."\n"; 
    7.  
         
  7.    print $2."\n"; 
    8.  
         
  8.    print $3."\n"; 
    9.  
         
  9. } 
    10.  
        
 输出结果： 
    
 
    
 
    
估计很多人也没想到会是这样的输出结果。