#!/usr/bin/perl-w
use strict;
use warnings;
  my @array = ('Nachname','Vorname','domain','usw',);
  my @_daten = ("");    # Speicher fuer alle Datensaetze

  my @matrix = (\@array,\@_daten);  #stopf die beiden arrays in ein array

open(DATEN, "<blubb.txt")   or die "Datei nicht gefunden\n";
while(<DATEN>) {

  chomp;

  my @matrix = ();
  @matrix = split(/%/); # $_ ist standard

    foreach (@matrix) {
         s%^\s+%%g; # fuehrende und
         s%\s+$%%g; # abschliessende Blanks entfernen
    } # foreach

    print left($matrix[0],90).left($matrix[1],90).left($matrix[2],90), "\n";
    # und zum Beweis das die Leerstellen weg sind
    #print "BEWEIS\n";
    print "$matrix[0];$matrix[1];$matrix[2]\n";

    } # while

  


  sub left {
      my $r = $_[0];

    while(length($r) < $_[0]) {$r.=' '}
      $r;
      } # left



  print "@{$matrix[0]}\n";
  print "@{$matrix[1]}\n";

  close(DATEN);


#  open (DATEN,"<blubb.txt");
#  open(NEU,">dieneuedatei.txt");

#     while(<DATEN>){
#       print  NEU @_daten;
#       }

#  close (NEU);
#  close (DATEN);

mustermann Bernd        blaDomain        32 016        85        5.7.2006  16:36        5.7.2006  16:36
mustermann Bernd        blaDomain        32 016        85        5.7.2006  16:36        5.7.2006  16:36;;
maier Gerhard        blubbDomain        66 715        457        6.7.2006  6:31
maier Gerhard        blubbDomain        66 715        457        6.7.2006  6:31;;

#!/usr/bin/perl

use warnings;
use strict;

my @data;
my $file = 'mailbox.txt';

open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>) {  # alles was unten in __DATA__ steht symbolisiert eine Datei
    chomp $line;
    my @array = (split(/\s+/,$line))[0..2]; 

    foreach (@array) {
        s%^\s+%%g; # fuehrende und
        s%\s+$%%g; # abschliessende Blanks entfernen
    } # foreach
  
    push(@data,[@array]);
} # while
close $fh;


my $len_vorname = find_longest(map{$_->[0]}@data);
my $len_nachname = find_longest(map{$_->[1]}@data);
my $len_domain = find_longest(map{$_->[2]}@data);

for my $entry(@data){
    print sprintf("%-*s %-*s %-*s<<\n",$len_vorname,$entry->[0],
                                       $len_nachname,$entry->[1],
                                       $len_domain,$entry->[2]);
}

sub find_longest{
    my $longest = 0;
    for(@_){
         my $length = length($_);
         $longest = $length if($length > $longest);
    }
 
    return $longest;
}

[...]
    print left($matrix[0],90).left($matrix[1],90).left($matrix[2],90), "\n";
    # und zum Beweis das die Leerstellen weg sind
    #print "BEWEIS\n";
    print "$matrix[0];$matrix[1];$matrix[2]\n";

    [...]

mustermann Bernd        blaDomain        32 016        85        5.7.2006  16:36        5.7.2006  16:36
mustermann Bernd        blaDomain        32 016        85        5.7.2006  16:36        5.7.2006  16:36;;
maier Gerhard        blubbDomain        66 715        457        6.7.2006  6:31
maier Gerhard        blubbDomain        66 715        457        6.7.2006  6:31;;