#@Datensatz = split(/\s/,$Felder);   
#$matrix =~ s/ /;/g; 

if (${matrix[0]},${matrix[1]}) = ~ /\s/;/g);
print "@{$matrix[0]}\n";
print "@{$matrix[1]}\n";

#$(matrix[0],matrix[1]) = ~ s/\s/;/g);
#s/\s[.]{1,2}\s?/ /gi;

#!/usr/bin/perl

use strict;
use warnings;

my $file = '/pfad/zu/datei.txt';
my @lines;

# öffne die Datei zum lesen und lese
# alles in ein Array ein
open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>){
   # schiebe die Zeile in das Array, wenn es keine Leerzeile ist
   push(@lines,$line) if($line !~ /^\s*$/);
}
close $fh;

# öffne die Datei zum Schreiben und schreibe
# die Zeilen aus dem Array in die Datei
open(my $w_fh,'>',$file) or die $!;
print $w_fh $_ for(@lines);
close $w_fh;

#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file = '/pfad/zu/datei.txt';

tie my @lines,'Tie::File',$file or die $!;
@lines = grep{$_ !~ /^\s*$/}@lines;
untie @lines;

#!/usr/bin/perl

use strict;
use warnings;

my $file = '/pfad/zu/datei.txt';
my @lines;

# öffne die Datei zum lesen und lese
# alles in ein Array ein
open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>){ 
   $line =~ s/\s//g;
   push(@lines,$line);
}
close $fh;

# öffne die Datei zum Schreiben und schreibe
# die Zeilen aus dem Array in die Datei
open(my $w_fh,'>',$file) or die $!;
print $w_fh $_ for(@lines);
close $w_fh;

#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file = '/pfad/zu/datei.txt';

tie my @lines,'Tie::File',$file or die $!;
$_ =~ s/\s//g for(@lines);
untie @lines;

#@Datensatz = split(/\s/,$Felder);   
#$matrix =~ s/ /;/g;