use strict;
use warnings;

print "Enter the string =";
my $str = <STDIN>;
chomp $str;
print "Enter the size =";
my $n = <STDIN>;
chomp $n;