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);
}