#!/usr/bin/perl -w

use warnings;
use strict;

my @data;

open(DATA, "<blubb.txt")   or die "Datei nicht gefunden\n";
while(my $zeile = <DATA>) {  # alles was unten in __DATA__ steht symbolisiert eine Datei
    chomp $zeile;
    my @matrix = split(/[\t\s\\]/, $zeile); # $_ ist standard
    foreach my $string (@matrix) {
        $string =~ s/^\s+/;/g; # fuehrende und
        $string =~ s/\s+$/;/g; # abschliessende Blanks entfernen
    } # foreach

    push(@data,[@matrix[0..2]]);

} # while


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;
}