BEGIN	{ for (i=1; i <= 5; i++)  number[i] = "" }

/^To: / { 
	number[1] = substr($0,5);
		if (q = index(number[1], "@"))
			number[1]=substr(number[1], 1, (q-1));
		}

/^Subject: / {
	if (p = index($0, "["))
		{
		if (q = index($0, "]"))
			number[2]=substr($0, p+1, (q-p-1));
		}
	if (p = index($0, "("))
		{
		if (q = index($0, ")"))
			number[3]=substr($0, p+1, (q-p-1));
		}
	if (p = index($0, "<"))
		{
		if (q = index($0, ">"))
			number[4]=substr($0, p+1, (q-p-1));
		}
	if (p = index($0, "{"))
		{
		if (q = index($0, "}"))
			number[5]=substr($0, p+1, (q-p-1));
		}
	}
END	{
	for (i=1; i <= 5; i++)
		{
		p = index(number[i],"%");
		if (p > 1)
			number[i] = substr(number[i], 1, p-1);
		# check for illegal first digit - campus phones start 3,4,5
		fd = substr(number[i],1,1);
		if ( fd != 3 && fd != 4 && fd != 5 )
			number[i] = "";
		}
	print number[1] number[2] number[3] number[4] number[5]
	}
