# File:	makeString.pl
#       Ask for a letter/string build a word
#		Do this until you want to. Continue(y/n)? 
# Author:	Mihaela Malita
#	 	Input letter?  b
#		Continue(y/n)? y
#	 	Input letter? i
#		Continue(y/n)? y
#	 	Input letter? t
#		Continue(y/n)? n
#		Word is bit
$yesorno = 'y';
#  $s= ''; by default string is NULL
while ($yesorno eq 'y') {
	print "Input letter? ";
	$let = <STDIN>;   #read a char or substring
	chop($let);   	#removes last char(ENTER)
	$s = $s.$let; 	# Concatenation
	print("Continue(y/n)?  ");
	$yesorno = <STDIN>;	#read answer
	chop($yesorno);	    #removes ENTER
}
print "Word is $s";
exit;