#ex_02-4 #Learning Perl Appendix A, Exercise 2.4 print "String: "; $a = ; print "Number of times: "; chop($b = ); $c = $a x $b; print "The result is:\n$c";