if($line =~ /\bblubb|sand?\b/){

$line =~ tr/\x22//d;

MFG  DOME/GT  OG

8975543;67,97;get
8376570;MFG;50,35
6573597;48,98;tzu
7654739;DOME/GT;48,38

$line =~ s#MFG##g;
$line =~ s#DOME/GT##g;
$line =~ s#OG##g;

#!/usr/bin/perl
use strict;
use warnings;
my $fes = 'lala.txt';
my $fest = 'lalagesamt.txt';
my @lines;
my columns = 3;
open (my $fh,'<',$fes) or die $!;
while (my $line = <$fh>){
chomp $line;
my @line = (split(/[\s]+/,$line))[0..($columns-1)];
$line =~s:\bMFG\b::g;
$line =~s:\bDOME/GT\b::g;
$line =~s:\bOG\b::g;
push(@lines,\@line);
}
print join(";",@$_),"\n"for(@lines);
close $fh or die $!;
open(my $w_fh,'>',$fest) or die $!;
print $w_fh join(";",@$_),"\n"for(@lines);
close $w_fh or die$!;

while (my $line = <$fh>){
chomp $line;
$line =~s:\bMFG\b::g;
$line =~s:\bDOME/GT\b::g;
$line =~s:\bOG\b::g;
my @line = (split(/[\s]+/,$line))[0..($columns-1)];
push(@lines,\@line);
} 

use of uninitialized value in join or string at C:\blabla.pl line 18,<$fh> line 257.
use of uninitialized value in join or string at C:\blabla.pl line 21.

while (my $line = <$fh>){
  chomp $line;

  $line =~s:\bMFG\b::g;
  $line =~s:\bDOME/GT\b::g;
  $line =~s:\bOG\b::g;

  push(@lines, $line);
}

while (my $line = <$fh>){
  chomp $line;

  $line =~s:\b(MFG|DOME/GT|OG)\b::go;

  push(@lines, $line);
}

while (my $line = <$fh>){
  chomp $line;

  push(@lines, $line =~s:\b(MFG|DOME/GT|OG)\b::go);
}

$VAR1 = [
               '8975543',
                '67,97',
                'get'
              ];


$VAR2 = [
               '8376570',
               '50,35' 
               'DRE'
              ];