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