my @exempts=('.abrildirect.com.br.','smtp','mail.','www.','www?.','.corp.');
my @badwords=('.dsl.','.adsl.','.cable.','.dip.t-dialin.','.ok.shawcable.',
'.evdo.giro.com.br','-???-???-','-???-??-','-??-???-','-??-??-','-??-?-',
'-?-??-','-?-?-','.hyogo.ocn.ne.jp.','.shawcable.net.','total-pool','.cust.',
'.user.','.fbx.proxad.','.pppoe.','adsl-data-','.homechoice.co.uk.',
'.dial.','.customer.','dsl.dynamic','dialup-','dial-','.dublin.eircom.net.',
'.ftth.ucom.ne.jp.','.sympatico.ca.','dsl.static','.virtua.com.br.',
'.ed.shawcable.net.','.ctbcnetsuper.','.gte.net.','.comcast.net.','.catv.',
'.customer.','.adsl-','dhcp.','.cableonline.com.mx.','.dyne-net.',
'.internetdsl.tpnet.pl.','dsl-del-','.dsl-','no.such.address.','dsl-??-',
'dsl-???-','.de.colt.net.','.C.csloxinfo.net.','.interbusiness.it.','.pool.',
'.btcentralplus.com.','.emailvitrine.');