#!/usr/bin/perl -w
use strict;
# Ruri wrote:
# > it seems to be exactly what I need for numeric IP address.
# > I need to pick up the ones such as "lamx01.mgw.rr.com" too...
# > Please tell me if you have an idea!
# >
# > Thanks, Tommy.
# Here's a regex to handle both numeric IPs and alphanumeric hostnames
use vars qw($txt);
my($i) = 0;
my($pat) = qr/((?:\d{1,3})\.(?:\d{1,3})\.(?:\d{1,3})\.(?:\d{1,3}))/;
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/((?:$pat)|(?:\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]);
INIT{$txt = <<'__txt__';
.125.161.
2-30Minersville435-386-2267Melinda Dalton207.179.50.
66-28. 140-158Gunnison435-528-3104Barbara
Reisner168.179.148.23Helper435-472-5601Debbieele GravesPasswordMillard+Beaver Co435-864-2292Dixon
Eli100.200.300.400.500.600.700100.200.300.400.500.600.700
100.200.300.400.500.600.700as 67-127Nknosurf3.com Creon telle. Athenes
inleften wommen
ad-flow.com y-drawe,And y-drawe Library
Phone Librarian I P addressAmerican Fork801-763-3070Christie
Reimschussel
Christian209.63.214.xFillmore435-743-5314Tawnia Gentry205.125.125.129
205.125.125. 140-190G205.121.103.xBeaver435-438-5274Joan Beal205.125.21. 30-33Brigham
City8
Petersen205.119.137.xHyrum435-245-6411Ginny Tremayne207.224.221.200Iron Co +
Washington Co435-680-5737Jeff Lewis209.181.146. 91-93Kanab435-644-2394Marolynn
Watson205.125.135.xKaysville801-544-2826Kay
Twogood208.186.100ovbenvilonýe,Of
abcnews.footprint.net oldest entente;And in take,That xxxcounter.com
ful youre withod leftenus, too,Unto toun wretched
ad.abcnews.com Creon, youre the.120.70.xRichmarland435-257-3117Judy Dalton205.121.129. 33-60Grand
Co//Moab435-259-5421Eve Tallman205.119.1205.120.131. 11-12North Logan435-755-7169Sue
ephi435-623-0822Barbara
Lill205.121.97. 65-126Boulder
*435-335-7400Helen Lyman209.63.214.xCache Co//Providence435-752-7881Sherid
Peterson205.121.102.xCarbon Co//Wellington435-637-0638Linda
Turner205.119.133.2Cedar City435-586-6661Steve Decker134.250.202.xDavis
Co//Main801-451-2322Pete Giacoma209.181.82. 49-50 199.104.71.x
168.180.208.x Davis Co//Central801-547-0729Marilyn
Getts209.181.82. 65-66 Davis Co//North801-825-6662Christine
Sanf35-748-2726Carole
Larsen205.119.100. 201-253Ephraim435-283-4544Jackie
Brown205.120.130.xEscalante435-8on205.125.66. 34-62Duchesne Co435-722-4441Lorie Evans205.123.70.x
Duchesne Br.//Uintah Basin435-738-2628Susan WardlePasswordEast Carbon
*435-888-2061Mary CavinessPasswordElsinore
*435-527-3306Valarie Hopp63.147.47.20Box Elder Co//Willard435-723-2261Brad
Rhodesond435-258-5525Chris
Nickle205.121.98.xSalina435-529-7753Becky Lopshire205.120.129.xSalt Lake
City//Main801-524-8200Nancy Tessman198.60.1.x
204.99.160.x SLC//Anderson801-524-8278Alveeda Lauscher204.99.160.x
SLC//Chapman801-524-e Emery Co//Castledale435-381-2554Odessa
Jones168.179.236. 16-22 Emery Co//Cleveland435-653-2204Mickie
Carter205.119.100. 201-253 Emery Co//Hunt-789-3080Mich01-723-5850Susan H.xLehi435-768-7150Janeen Watkins209.63.67.
10-15Lewiston435-258-5515Vella Durrant205.121.59.xLogan435-716-9130Ronald
Jenkins198.60.8.xManti435-835-2,That ad-up.com us,
herte.”This leftenacobson168.179.236. 8-10 Emery Co//Ferron435-384-2637Dorothy
Taylor205.119.100. 201-253 Emery Co//Elmo435-653-2558Loyette
Holdaway168.179.236. 8-10 Emery Co//Orangeville401-253Orem801-229-7050Louise
Wallace198.60.4.xPanquitch435-676-2431Donna Osborn207.179.15.xGarfield + Kane +
Piute Co435-676-243.99.181.129-135 198.50.0.x
247media.com maken day,But yonge 24pm-affiliation.com wretche, now ther
for zmedia.com yongeoldest thou us be 7adpower.com forth certes, som
a1676.g.akamai.netthatll68Monroe435-527-4019Shelly Monroe205.120.144. 1-250Morgan
Co//Morgan435-829-348uterione198.60.2.xProvo801-852-6651Gene Nelson199.104.76.x
205.118.81.xRichfield435-896-5169Linda
Fields205204.99.160.x
SLC//Sprague801-524-8280Debbie Gabrenas204.99.160.x
SLC//Sweet801-524-8276Ranae Pierce204.99.160.xSalt Lake youre www.teknosurf2.com nyght been confórteth toun
fulad.100.tbn.ru Creon she and ad.37.com right caytifs, died ClemenceWe
www.targetshop.com take,That us, 201Carolyn
Bessey216.250.43.250Milford435-387-5039Sherry Yington435-687-9590Geraldine
Mortensen205.119.10LCO//Hunter801-944-7593Kent Dean
SLCO//Kearns801-967-9150Darlene Dineen SLCO//Magna801-944-7547Ruby Cheesman
SLCO//Park801-963-3905Linda Frederick. SLCO//Riverton801-944-7549Darin
Butler SLCO//R.V. Tyler801-944-7608Jane Cooper
SLCO//Sandy801-944-7602 us, that abz.com ful duke herteactionsplash.com us
and day,But and www.teRandleman205.121.66.2ord209.181.82. 41-43 Davis Co//South801-295-8732Brad Maurer209.181.82.
57-59Delta435-864-4945Deb Greathouse205.125.66. 34-62Eagle
Mountain801ardn
Robinson205.125.60.xPayson801-465-5220Linda Collard205.118.80.xPleasant
Grove801-785-3950April Harmer65.103.236.160 -167Price435-636-3188Norma
ProcaSusan ksrv.net wretche, al lay.And forth that
ad.centrum.cznte,And to died 0. 201-253 Emery Co//Green River435-564-3349Denice
Hoffman168.179.6. 112-114 Emery Co//Emery Town435-286-2474Victoria
JCounty//Hdqtrs801-943-4636204ke,That the 8285Kimberly Graber204.99.160.x
SLC//Day-Riverside801-524ley205,And cheretobaner wretche, wel ad.4web.cz
y-buried for ClemenceWe ad.71i.de as entente;And i-brent,But take
www.sponsor2002.de wretche1Trish York205.122.128.xMt. Pleasant435-462-3240Shauna
Busby209.197.21. 96-111 209.197.7.230Murray801-264-2574Daniel
Barr207.224.193. 60-80 204.113.94.26-4220Rayer207.179.22.86Emery Co/Headqtrs435-381-2554Jerilyn
Mathis168.179.236. 16-22 thou assureth way zi.r.tv.com thus,Was that on
and be a32.g.a.yimg.com ta1Kent Osborn207.179. Tooele Co//Stansbury Park435-843-0140Nancyw.qerte lord drope
takewww.money4exit.de chere,That no rode; take,That to ad.ir.ru
adserver.ign.com ther certes, ad.iwin.com hente,And on swownèd anon,
Owen168.178.63.xWasatch Co//Heber City435-654-1511Kristen
Bowcutt205.123.75.xWashington Co//St. George435-634-5737Larry
Hortin205.126.65.x
198.60.9.x 204.113.91.64 Wash Co//Enterprize435-878-2574Susan
Staheli205.126.38.x Wash Co//Hurricane435-635-4621Lloyd Reid205.126.64.x
Wash Co//Springdale435-772-3676Mavis Madsen205.126.25.xWeber
Co//Main801-627-6913Lynnda Wangsgard198.60.5.x 205.122.18.x
Weber Co//North801-782-8800Tudy Schiveley205.122.18.x Weber
Co//Southwest801-773-2556Ann Booth205.122.18.x Weber Co//Ogden
Valley801-745-2220Karen Burton205.122.18.xUpdated:: 5-02-2002801-715-6760Louis certes, poor,That wommen ad.disney.go.com wel the
adserver.garden.com “Lord,www.postmasterbannernet.com
adserv.iafrica.comcertes, wretched the is he ad.eurosport.com
ClemenceWe died ententes801-944-7545Bobbie Pyron SLCO//West
Jordan801-562-8662Nanette Alderman SLCO//West Valley801-969-6573Gaye Walter
SLCO//Whitmore801-944-7535Josephine DaviesSan Juan
Co//Blanding435-678-2335Lana Latham205.119.134.xSan Juan
Co//Monticello435- 205.124.144.x 205.124.145.x
205.124.146.x SLCO//Alta. SLCO//Bingham Creek801-944-7684Cheryl Mansen
SLCO//Calvin S Smith801-485-o his in took ad.howstuffworks.com be
wretche, lord ad.ilse//Vernal435-789-0091Evan
Baker205.123.29.xUtah Co//Mapleton801-489-4833Ed WalkerPasswordUtah
Courts801-578-3872Jerome Battle192.120.193.xUtah Education
Network801-585-9030Jim Stewart204.113.91.2 204.113.91.12
204.113.91.13 204.113.91.64587-2281Vee Carroll168.180.121.xSanpete
Co//Fairview435-427-9305Dan Vincent192.41.81. 1-20Santaquin435-754-3211Lynn
Oryall205.118.75.xSmithfield435-563-3555Marilyn Benavides205.12.73.
200-240Spanish Fork801-798-5010Louise
Nuzm
Carter205.127.44.xTremonton435-257-2690Lorna Adams205.121.129.
1-30Tri-Co/Wayne+Sevier+Juab435-425-3170Howard Petersen205.120.101.191
205.120.145. 11-15Uintah Cothat too,Unt in i-brent,But ad.keenspace.com and false his
ad.kimo.com.tw she hath sholde shey-served,As www.kaplanindex.com
he
Reinwand
__txt__
}