Select Code to Download

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.

diff grepmail.orig grepmail
161c161
<   while($READ_BUFFER =~ m/(?mgx)^(From\s.*\d:\d\d:\d\d\s\d{4}|
---
>   while($READ_BUFFER =~ m/(?mx)^(From\s.*\d:\d\d:\d\d\s\d{4}|