Help for this page

Select Code to Download


  1. or download this
    Use of uninitialized value in split at ./temp.pl line 258.
Use of uninitialized value in string at ./temp.pl line 290.
Use of uninitialized value in concatenation (.) at ./temp.pl line 290.
Can't use an undefined value as a symbol reference at /usr/lib/perl5/s
+ite_perl/5.6.0/Mail/Sender.pm line 832.
  2. or download this
    sub match {
  my (@newemails, @emails);
...

*Note: I know my regex will not match 100% of emails, but I'm happy wi
+th 75 - 90%. It's been working out well so far.