# Title, needs to be Dr, Lady, Lord, Miss, Mr, Mrs, Ms or Sir

$conditionTitle = 0;

do
{
print("Please enter your title: ");
chomp($title = <STDIN>);

	if($title =~ /^Dr|Lady|Lord|Miss|Mr|Mrs|Ms|Sir|$/)
	{
	print("Thank you.\n");
	$conditionTitle = 1;
	}
	else
	{
	print("The allowed titles are: Dr, Lady, Lord, Miss, Mr, Mrs, Ms or Sir.");
	}
	}
	while($conditionTitle == 0);