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

while ( my $line = <DATA> ) {
    chomp $line;

    print "Zeile $.:\n";            ## KONTROLLE

    # Feldgroessen grob erraten anhand erster Datenzeile
    my @fields = unpack("AA11A15A11A12A11A13A6", $line);
    s/^\s+//    for @fields;        # fuehrende Leerzeichen aus Feldern entfernen

    print ">$_<\n" for @fields;     ## KONTROLLE
}

__DATA__
0  000123456  Name           07/09      86,00       7,00       79,00R       0,00
              Vorname                                           8,00N