Make it work with perl 5.12
From pkgsrc pr43974
--- majordomo.pl.orig	Wed Feb  2 13:32:15 2011
+++ majordomo.pl	Wed Feb  2 13:32:39 2011
@@ -95,14 +95,14 @@ sub main'ParseAddrs {
     local($_) = shift;
     1 while s/\([^\(\)]*\)//g; 		# strip comments
     1 while s/"[^"]*"\s//g;		# strip comments"
-    split(/,/);				# split into parts
-    foreach (@_) {
+    my @x = split(/,/);				# split into parts
+    foreach (@x) {
 	1 while s/.*<(.*)>.*/$1/;
 	s/^\s+//;
 	s/\s+$//;
     }
 
-    @_;
+    @x;
 }
 
 # Check to see if a list is valid.  If it is, return the validated list