Suchst du sowas?
#!/usr/bin/perl
use warnings;
while ( $line = <> ) {
chomp($line); # CR am Ende der Zeile entfernen
my @zeichen = split (//, $line);
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";
}
|