my $zeile;
  my @matrix = ();
  my @matrix = split(/[\t\s\\]/,$zeile);
  my $string = "@matrix";

 foreach (@matrix) {
    $string = ~ s/^\s+\t\\/;/g; # fuehrende und
    s/\s+$\t\\/;/g; # abschliessende Blanks entfernen
 } # foreach