Useless (?g) - use /g modifier in regex; marked by <-- HERE in m/(?mg <-- HERE x)^(From\s.*\d:\d\d:\d\d\s\d{4}|
                                  From\s.*\d:\d\d:\d\d\s\d{4}\s[+-]\d{4}|
                                  From\s.*\d:\d\d\s.*\w{2,3}\s\d{4})$/ at ./grepmail.orig line 163.