Select Code to Download

#!/usr/bin/perl -w
use 5.016;
use strict;
...
    }
    # next;
}

my test file foo.bar
pomona.edu
wesleyan.edu
...
smithbarney.fin
ebay.co
ebay.com

 *** Testing for matches to $foo: my test file foo.bar ***
 *** Testing for matches to $foo: pomona.edu ***
 *** Testing for matches to $foo: wesleyan.edu ***
...
         $foo: smithbarney.fin found in $int: (?^u:smithbarney.fin 195
+.7.168.2 20140608:1454)
 *** Testing for matches to $foo: ebay.co ***
 *** Testing for matches to $foo: ebay.com ***