#!/usr/bin/perl

# Alle Warnungen an und Strikter Code:
use strict;
use warnings;

# Code ist UTF-8 kodiert
use utf8;

# ein und ausgabe auf UTF-8 stellen:
binmode(STDIN, 'encoding(UTF-8)');
binmode(STDOUT, 'encoding(UTF-8)');
# Ab hier sind alle Eingabe-Strings Perl-utf8 kodiert.
# (perl verwendet intern ein abgewandeltes UTF-8 zur Zeichenkodierung)
# und split, length, etc wird nicht an bytes splitten oder messen
# sondern an Zeichen, auch wenn diese aus mehreren Bytes bestehen.
# Ausgaben werden von Perl-utf8 auf UTF-8 gewandelt

# Von der eingabe lesen:
print "Bitte schreiben Sie irgendetwas!\n";
my $zufall = <STDIN>;
chomp($zufall);

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

{
  # Aufteilen des Strings
  my $length = length($zufall) ;
  my $half = int($length / 2);

  # testweise ausgeben:
  print "Länge: $length = ( $half + ".($length-$half)." )\n";

  # String splitten
  my $zufall_1 = substr($zufall,0,$half);
  my $zufall_2 = substr($zufall,$half);

  # und die Hälften ausgeben:
  print "Erste Hälfte :$zufall_1\n";
  print "Zweite Hälfte:$zufall_2\n";

}