#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

while ( <DATA> ) {
    # 5 Zeichen breite Spalten; davon insgesamt 11
    # entferne aus jeder Spalte die Leerzeichen
    # (setzt natuerlich voraus, dass Leerzeichen nur "Füllzeichen" sind
    # und nicht in den eigentlichen Werten enthalten sind)
    # speichere die 11 Spalten in @data
    my @data = map { tr/ //d; $_ } unpack( "A5"x11, $_ );

    # tu was mit den 11 Werten
    print join($/, @data), $/;

}


__DATA__
    1    2    3    4    5    6    7    8    9   10   11