# File:	stringRepeat.pl
#       Repeat a string. Ex:  $s = $s x 5; 
# Author:	Mihaela Malita
#	 	Input string?  alan
#		Repeates string 5 times: alanalanalanalanalan

$many = 5; 
print $i,"Input a string? ";
$s = <STDIN>;   	#read a char or substring
chop($s);   		#removes last char(ENTER)
$s = $s x $many; 	#  concatenates string to itself $many times 
					# same as $s x= $many
print "Repeates string $many times: ",$s;
exit;