my $REx = 
    qr/
          (                        
              (?:                  
                  (?:              
                        [^\n@]+  
                      |            
                        @
                        [^@]*
                        @  
                  )                
                  \n?              
              )+                   
          )                        
      /gsx;