#!/usr/bin/perl

if($#ARGV < 0) { die("usage: rmword.pl inputfile\n");}
my @rmwords = qw(cxxflags iodb);
my $outfile = "$ARGV[0].chg";

open(IN,"$ARGV[0]")||die("$ARGV[0] cannot be opened.\n");
my @lines=<IN>;
close(IN);

my $aline = "";
my $flag = 0;
my $rmword = "";
foreach $aline (@lines) {
        print "\n<$aline";
        foreach $rmword (@rmwords) {
                print " <-$rmword";
                if($aline =~ /$rmword/) {
                        my @words = split(/[\s]+/,$aline);
                        my $aword = "";
                        foreach $aword (@words) {
                                if($aword =~ /$rmword$/) {
                                        $aline =~ s/[\s]*$rmword[\s]*//g;
                                        $flag = 1;
                                }
                        }
                }
        }
}

if($flag) {
        open(OUT,">$outfile")||die("$outfile cannot be opened.\n");
        print OUT join('',@lines);
        close(OUT);
}