What would the best approach to account for ALL strings matched?
(In other words I want to display as complete a list as possible to determine all strings that would be matched...)
=cut
sub verp_mung {
my $addr = $_[0];$addr =~ s/((?:bounce[ds]?|no(?:list|reply|response)|return|sentto|\d+).*?)(?:[\+_\.\*-]\d+\b)+/$1-ID/oi;
return $addr; }
# The e-mail addresses in question have already been # accepted by SMTP server - so they are valid.
__END__
-Bill- __Sx__________________________________________ http://youve-reached-the.endoftheinternet.org/
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
