#!/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$!;