my @pos;

my $s = <DATA>;

my $lastpos = 0;
while ( $s =~ /\s\s\S/g ) {
    # Position, Länge
    push( @pos, $lastpos, pos( $s ) - $lastpos - 1 );
    $lastpos = pos($s);
}