foreach $test ("feed", "60637", "foot", "fellow", "feather")
{

	if ($test =~ /e*/)
	{
		print "Test \'$test\' contains zero or more e\'s\n";
	}

	if ($test =~ /e+/)
	{
		print "Test \'$test\' contains one or more e\'s\n";
	}
	
	if ($test =~ /e{2,}/)
	{
		print "Test \'$test\' contains alt least two consecutive e\'s\n";
	}
	
	if ($test =~ /[e|o]{2,}/)
	{
		print "Test \'$test\' contains alt least two consecutive e\'s or o\'s\n";
	}
	
	print "\n";

}