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