#!/usr/bin/perl

open (FILE, "KenLayEmail.txt");

while (<FILE>) {

	#check for addresses
	#if ($_ =~ /^\s*(\d+ [a-zA-Z\.\-, ]+)\s*$/   ){
	#	print "$1\n";
	#}
	
	#check for phone numbers
	if ($_ =~ /(\(\d\d\d\) \d\d\d[\.\- ]\d\d\d\d|\d\d\d[\.\- ]\d\d\d[\.\- ]\d\d\d\d)/)
	{
		print "$1\n";
	}
}

close FILE;