while(my $line = <FH>) {       
chomp $line;
my @array = (split(/[\t\s\\]/,$line))[0..($columns-1)]; 
foreach (@array) {
s/^\s+/;/g;
s/\s+$/;/g;
} # foreach
if ($line =~ /\b(?:BLUBB|BLUBBER)\b/){
push @data,[@array];
}
} # while