#!/usr/bin/perl

if($#ARGV < 0) { die("usage: rmword.pl inputfile\n");}
my @rmwords = qw(flags iodb inp);
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) {
	foreach $rmword (@rmwords) {
		if($aline =~ /$rmword/) {
			my @words = split(/[ \t]+/,$aline);
			my $aword = "";
			foreach $aword (@words) {
				if($aword =~ /$rmword$/) {
					print "< $aline";
					$aword = "";
					$aline = join(" ",@words);
					print "> $aline";
					$flag = 1;
				}
			}
		}
	}
}

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