do
{
print "Enter Yes or No \n";
chomp($input = <>);
if ($input eq 'yes')
{
	print "Yes entered for system.\n";
	
	
}
elsif($input eq 'no')
{
	print "No entered for system.\n";
	
}

}
until ($input =~ /^yes$/ or $input =~ /^no$/);