101
1


##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

print 'Enter a string '; 
my $string = <STDIN>;
print 'Enter value ';
chomp( my $num = <STDIN> );

if ($num >= 100) {
    print "Too big, bye\n";
} else {
    my $result = $string x $num;
    print "The result is:\n$result";
}


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,