# File:	makeStringFor.pl
#       Ask for a letter/string build a word
#		Do this until you type q(uit)
# Author:	Mihaela Malita
#	 	Input letter?  M
#		More(y/n)? y
#		1. Input letter? M
#		2. Input letter? e
#		3. Input letter? l
#		Word is Mel

#  $S = ''; by default string is NULL

for $i (1,2,3) {
	print $i,". Input letter? ";
	$let = <STDIN>;   #read a char or substring
	chop($let);   	#removes ENTER
	$s = $s.$let; 	# Concatenation
}
print "Word is ",$s;
exit;