#!/usr/bin/perl
print "Geben sie eine Zeichenkette ein: \n";
chomp($string = <STDIN>);
print "Geben sie eine Zahl ein: \n";
chomp ($anzahl = <STDIN>);
$ergebnis = $string x $anzahl;
print "Das Ergebnis ist:\n$ergebnis";