print "Bitte schreiben Sie irgendetwas!\n";
$zufall = <STDIN>;
chomp($zufall);

print "\nSie haben eingegeben: $zufall\n\n";

{
my @zeichen = split (//, $zufall);	
my $anzahl_der_zeichen = scalar(@zeichen);

print "Es wurden $anzahl_der_zeichen gefunden\n";

for (my $i = 0; $i < $anzahl_der_zeichen / 2; $i++) {
print "$zeichen[$i]";
}
print "\n";
}