#!/usr/bin/perl -w
use strict;

my($i)      = 0;
my($txt)    = 'blahblahbla Re: Regex to pick up "lamx01.mgw.rr.com"';
my($tlds)   = qr/(?gsmiox)
af|al|dz|ad|ao|aq|ar|am|aw|au|at|az|bs|bh|by|be|bt|bv|br|bg|kh|cm|ca|cv|ky|cl|
cn|cx|cc|co|km|cg|ck|cr|hr|cu|cy|cz|cs|ec|dk|cd|dm|do|ec|eg|sv|ee|et|fo|fj|fi|
fr|ga|gm|ge|de|gh|gi|gr|gl|gd|gp|gt|gn|ht|hn|hk|hu|is|in|id|ir|iq|ie|il|it|jm|
jp|jo|kz|ke|ki|kw|kg|la|lv|lb|ls|lr|ly|li|lt|lu|mo|mk|mg|mw|my|mv|ml|mt|mh|mr|
mu|mx|fm|md|mc|mn|ma|mz|na|nr|np|an|nl|nt|nz|ni|ng|nu|nf|kp|mp|no|om|pk|pw|pa|
pg|py|pe|ph|pl|pt|pr|qa|re|ro|ru|rw|lc|sm|sa|sn|sc|sl|sg|sk|si|sb|so|za|kr|su|
es|lk|sd|sr|sj|sz|se|ch|sy|tj|tw|tz|th|tg|tk|to|tt|tn|tr|tm|tc|tv|ug|ua|ae|uk|
us|uy|uz|vu|va|ve|vn|vg|vi|wf|ye|yu|zm|zw|lt|tf|ac|bk|as|sh|to|ne|ca|dk|md|ro|
gs|ky|kz|fm|cx|ms|vg|tc|az|dk|cf|ua|ps|net|com|edu|gov|int|co.uk|nato|org|mil/;

my($pattern)=qr/(\w[\.[:alnum:]]*\.$tlds)\W/;

print(qq[\n\n]);

$txt=~s/$pattern/++$i;print(qq[I found one, that's match #$i  $1\n])/gex;

print(qq[\n\na total of $i matches was found.\n\n]);