# ex_02-4
# Learning Perl on Win32 Systems, Exercise 2.4

print "String: "; $a = <STDIN>;
print "Number of times: "; chomp($b = <STDIN>);
$c = $a x $b; print "The result is:\n$c";