#!/usr/bin/env perl

use strict;
use warnings;

# Programme qui lit une chaîne de caractères et un nombre et affiche la chaîne
# le nombre de fois.

print "Chaîne de caractères : ";
my $string = <STDIN>;
chomp $string;
$string =~ s/^\s+|\s+$//g;
$string .= ' ';

print "Nombre : ";
my $nb = <STDIN>;
chomp $nb;
$nb += 0 or die "$nb n'est pas un nombre !\n";

my $output = $string x $nb;

print $output."\n";