#!/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;
$line =~ s/\s+/;/g;
$line =~ s:\b(MFG|DOME/GT|OG)\b::go;
push(@lines, $line);
}
print @lines;
close $fh or die $!;
open(my $w_fh, '>', $fest) or die $!;
print $w_fh @lines;
close $w_fh or die $!;

print $w_fh $_,"\n" for(@lines)