Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

while (<>) {                   # take one input line at a time
...
        print "No match: |$_|\n";
    }
}

Select or download this

I am using dbmathis@domain.com with this example?
No match: |I am using dbmathis@domain.com with this example?|
I am using dmathis@gmail.org this time.
Matched: |I am using <dmathis@gmail>.org this time.|