while(my $line = <FH>) {       
chomp $line;
my @array = (split(/[\t\s\\]/,$line))[0..($columns-1)]; 
foreach (@array) {
s/^\s+/;/g; ##anfang
s/\s+/;/g;   ##mitte
s/\s+$/;/g;  ##ende
} # foreach
if($line =~ /\bBLUBB(?:ER)?\b/ and $line !~ /\bSAND\b/){
   push(@data,[@array]);
}
} # while