#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my @inhalt = split //,<<INPUT
A
INPUT
;
say "Gesamt: ".scalar(@inhalt)." Bytes";
for (my $ze = 0; $ze < scalar(@inhalt); $ze ++) {
	my $anzahl = 0;
	while (scalar(@inhalt) > ($ze + $anzahl) && $inhalt[$ze + $anzahl + 1] eq ' ') {
		say "untersuche ".($ze + $anzahl + 1);
		$anzahl ++;
	}
	say "bei Pos. $ze = $anzahl";
}